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Chapter I 

BACKGROUND AND OBJECTIVES 



This report describes the technical structure and general application 
of a Container Stuffing Station Simulation Model (SIMCON) . The simulation 
model characterizes the operations of a cargo terminal that loads (stuffs) 
cargo into ocean going containers. Briefly, the model is oriented toward 
a situation where a station must request containers from steamship lines, 
who respond by providing containers and container space on arriving vessels. 
(This is in contrast to a situation where a station has an unlimited supply 
of empty containers for stuffing.) Received containers are stuffed and 
transferred back to the carrier for loading (lifting) onto vessels. 

The simulation model is structured to handle a variety of problems, 
some of which are discussed here and in the last chapter. Initial objec- 
tives were to provide a simulation vehicle in which to normatively examine 
the following aspects of container stuffing operations: 

1. the effects of reduced cargo volumes; 

2. the potential tradeoffs among stuffing operations 
performance variables under given cargo volumes; 

3. the effects of alternative booking (container 
requesting) procedures . 

However, it soon became apparent that a simulation model which could 
handle the above problems could also be used to attack other problems 

such as : 

1) the effects of container size on stuffing performance; 
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2) the identification of optimal stuffing policies; 

3) the impact of cargo arrival forecasting techniques. 

Therefore, the simulation model was structured to provide a broad 
latitude of parameter inputs so that these and other problems could be 
examined without major programming modifications. 

In addition to the simulation model, this report also describes the 
computer programs used to take empirical data and prepare inputs for the 
simulation program. These data preparation programs are less general in 
their orientation, and would most likely require modification to suit the 
needs of a particular problem. 

Management Use of SIMCQN 



Computerized simulations of large scale industrial operations have 
recently taken important roles in management decision-making processes; 
a number of published examples are listed in the simulation section of 
the attached bibliography. Simulation has become a tool which not only 
provides managers with additional information regarding routine decisions, 
but also extends planning horizons and improves long run managerial 
controls . 

Generally speaking, a simulation model mathematically replicates the 
major factors which operate in the modelled system. Simulations are 
basically used to answer "what if" questions. That is, what are the 
operating characteristics of the modelled system certain assumptions 
are made about its operations ? The results of this approach can be 
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used for absolute predictions, or for relative predictions. 

In the absolute prediction role, it would be presumed the assump- 
tions of the simulation model replicate reality so close, that the results 

of the model can be directly used to predict effects in the real system. 

\ 

Obviously, the validity of the results depend on how well the model 
represents reality . 

In the relative prediction role, one is more concerned with comparing 
the operating characteristics within the modelled framework. These com- 
parisons are then used to infer what happens in the real system. The 
relative prediction role is quite often referred to as sensitivity analysis. 

Here is an example contrasting the absolute prediction role of 
simulation with the relative role. Suppose one has a model which predicts 
the average time each category of cargo shipments will remain in the 
station before being stuffed into a container. In the absolute role, the 
model would be used to predict the average shipment delay times for each 
category. In the relative role, the model would be used only to emphasize 
the relative differences between shipment ages by category, not the 
absolute ages by category. 

In most cases, the relative role of simulation modelling has greater 
credibility because it does not presume that the model is an exact 
replica of the real system. Rather, it presumes that whatever factors 
are being examined are in a comparable framework. In this sense, the 
simulation model is a yardstick that measures differences within common 
scenarios . 

From an organizational standpoint, simulation modelling techniques 
may be handled several different ways in an industrial activity. They 
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may be used for intermittant planning purposes, continuous planning 
purposes, or even in daily operations. 

The intermittant planning role is where simulation modelling tech- 
niques are called into play when some planning problem arises which is 
amenable to available simulation resources. Here, simulation models are 
typically developed on a one time basis to meet the needs of the particular 
problem; little or no effort is expended to update models and data after 
use. 

The continuous planning role is where simulation modelling techinques 
and data are continually refined and applied to recurring planning problems. 
Here, resources are expended to keep the models up to date. Individuals 
are assigned this responsibility, and would actively search for new 
applications . 

In an operational role, simulation would be used to solve recurring 
operational problems. An example of this would be where a simulation 
model is used daily to estimate the number of containers needed to clear 
on-hand and forecasted cargo volumes within some time horizon; the 
results would be used in booking containers. 

At this stage, SIMCON is capable of handling certain planning problems 
which relate to cargo flows through stuffing stations; specific problems 
are discussed in Chapter VI. 



Scenario 



The Military Traffic Management Command (MTMC) , formerly known as 



the Military Traffic Management and Terminal Service (MTMTS) , is a 
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manager of transportation services for the Department of Defense (DOD) . 
Detailed descriptions of its responsibilities can be found in the 
references in the bibliography; only general points and relationships 
will be discussed here. 

For the most part, MTMC coordinates DOD cargo shipments through 
commercial carriers and some ships of the Military Sealift Command (MSC) ; 
as such, it relies on both land and ocean commercial carriers to perform 
actual transportation services. Nevertheless, MTMC does operate several 
container stuffing terminals and water terminals in the continental 
United States. 

These terminals perform several functions, among which include the 
consolidation of export general cargo shipments for stuffing into 
containers. SIMCON is a model of their largest west coast station. 
Validation of the model was carried out by comparing the reasonableness 
of model assumptions with actual practices, subjectively comparing 
outputs with actual operations, and, of course, insuring that program 
logic and coding was correct. 

Report Organization 

Chapter II describes the general structure of the simulation model, 
and this is followed by a chapter which discusses some of the technical 
programming aspects of the model. Chapter IV describes the approach 
and the computer programs used to prepare data inputs for the simulation, 
and this is followed by technical aspects. Chapter VI discusses simula- 
tion outputs and how these outputs were used, and can be used for 
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management purposes . 

Appendix A provides brief definitions of key terms and abbreviations 
used in this report; it is suggested that those unfamiliar with this area 
review these definitions. Appendix B lists input data file formats and 
the programs used to develop them. Appendix C lists key variables and 
parameters used in the simulation, along with the simulation programs, 
its flow charts and annotation. Appendix D lists output data file formats 
and associated programs. Appendix E provides a listing of example parameter 
inputs and outputs of the simulation program. Appendix F lists the formats 
of the output transaction reports that may be requested from the simulation. 



Chapter II 

GENERAL STRUCTURE OF THE SIMULATION MODEL 
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The simulation model replicates the major factors influencing 
waterfront stuffing station activities. This includes variations in 
vessel departures, shipment inputs, booking containers aboard vessels, 
and stuffing restrictions. The program is coded in FORTRAN IV, and is 
operational on the IBM 360-67 at the Naval Postgraduate School. Infor- 
mation storage is handled through list processing (linking) procedures 
so as to minimize core requirements. These requirements are substantial 
when simulated shipment accumulations become large. 

The program is divided into modules controlled by a main program; 
the modules and their interrelationships with data files and information 
stacks are depicted in Figure 1. Shipment arrivals, volumes, and weights 
are fed into the program on a daily basis, and stored. Information on 
future vessel arrivals, container types, and container availability are 
also fed into the program. The booking routine begins reserving con- 
tainers aboard vessels according to accumulated cargo volumes and fore- 
casted POD volume inputs. Several days before a vessel’s arrival, the 
container stuffing routine begins stuffing cargo into the containers 
which can be loaded into the reserved spaces on the vessel. Containers 
are drawn from the empty container pool which is replenished by the 
container dispatch routine. The dispatch routine is keyed to the con- 
tainers booked on arriving vessels. The container lift routine transfers 
stuffed containers onto the arriving vessels. 
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The simulation program uses consignee, POD, and container type 
serial numbers (as opposed to mnemonics) as designators. This greatly 
reduces execution time because repetitious table look-ups do not need 
to be performed. Of course, it is necessary to convert input data and 
assign serial numbers beforehand, but this task is well worth the effort 
in terms of overall efficiency. 

The simulation program provides a general printed output which 
summarizes stuffing operations for each POD. Additional data can be 
obtained through program options. One of these options allows for data 
concerning specific transactions to be written on external files for 
later analyses . 

The following segments describe the general workings of the simula- 
tion program modules , and also the general inputs and outputs of the 
program; specific details of these programs are presented in Chapter 3. 

Shipment Inputs 

The shipment input routine is called upon daily to transfer arriv- 
ing shipments to the containerizable shipments stack. Basically, it 
reads from an external file that contains shipment segment data arranged 
by chronilogical date of arrival. The routine advances through this file 
each simulated day, adding records to the shipments stack. These data 
records are stored in the shipments stack by consignee, in order of their 
arrival at the terminal, using a list linking technique. For each con- 
signee, a pointer points to the location of the first shipment record; 
that record points to the next shipment segment record etc. 
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The input records contain the following information: 

1. Date of arrival at the station. This date is expressed in 
terms of a serial number. 

2. POD number of the shipment segment. 

3. Consignee number of the shipment segment. 

4. Weight of the shipment segment (pounds). 

5. Volume of the shipment segment (cubic feet). 

6. A number designating the serial order in which the shipment 
segment arrived during the day. This number will be negative 
if the segment is not the last segment of the split shipment. 
Split segments of the same shipment will always be together 
in the input file, with the last segment having the positive 
serial order number. (A shipment would have been split in 
the data preparation programs if the volume or weight of the 
shipment could not be contained in a two byte integer word.) 

7. A number designating the nature of the shipment segment. (Al- 
though this field is included, it is not actively used in the 
simulation model.) 

The above data is transfered to a record which is added to the shipment 
stack of the designated consignee. 

One aspect worth pointing out here is that when the input routine 
reaches the end of the shipment input file, the file is rewound. The 
routine then continues reading this file and automatically increments 
arrival dates by the simulated day at which the file was rewound. In 
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other words, shipment data is automatically recycled to allow for repe- 
tition, if necessary. For example, if sixty days of data are on the 
file, then the sixty-first simulated day will have the same shipment 
inputs as the first simulated day. 

The shipment input routine has one other important function, and 
that has to do with cargo volume tabulations. When a shipment is receiv- 
ed, its volume is added to three accumulators. One is the total volume 
on hand for the consignee, another is the total volume on-hand for the 
POD, and the last is the total volume that has arrived for the POD during 
a weekly period. The first is used during stuffing operations for deter- 
mining on-hand consignee volumes, and is decremented when shipments are 
stuffed. The second is used during booking operations for determining 
on-hand POD volumes, and is also decremented when shipments are stuffed. 
The third is used for estimating (forecasting) cargo input volumes by 
POD, and is set to zero at the beginning of each week by the main 
program. 



Stuffing Procedures 

The algorithm used in the simulation model is one which attempts 
to be as simple as possible, but yet incorporate the fundamental features 
of the container stuffing problem. In actual operations there are numer- 
ous factors which influence container stuffing, e.g. cargo configurations, 
cargo incompatibilities, loading and manifesting procedures, etc. It be- 
came apparent early in the project that trying to incorporate every 
detail would be a tremendous task, and ultimatly would be counter 
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productive because actual operational decision rules changed from day 
to day. Also, in line with the simulation philosophy, it is important 
not to become so detailed as to pollute the simulation results with so 
many interacting factors that it is impossible to interprete the results. 

With the above concepts in mind, the stuffing algorithm was formu- 
lated to include the following basic factors: 

1. Maximum usable container volume for each type of container. 

2. Maximum cargo weight for each type of container. 

3. Minimum load requirements in terms of the minimum volume of 
cargo that must be on-hand for the container before stuffing 
can begin. 

4. Consignee mixing restrictions in terms of which consignee 
cargos (if any) can be mixed when necessary. 

5. Minimum shipment splitting restrictions in terms of the min- 
imum allowable size to which shipments can be split when 
necessary . 

6. The order in which different size containers can be stuffed. 

For example, it would be desirable to stuff large vans before 
small vans during a day’s operation so as to achieve greater 
container volume utilizations. 

7. Vessel arrivals and container availability. That is, the 
procedure initiates stuffing activities for a POD only when 
containers are available to meet booked vessel arrivals /de- 
partures . In contrast, a cargo oriented procedure would 
initiate stuffing activities solely on the basis of cargo 
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accumulations and container availability. 

General Procedures 

The following will describe the stuffing procedure in general terms; 
detailed information is provided in later chapters and appendices. 

Each day the stuffing routine is called by the main program to stuff 
containers for vessels which will arrive in the immediate future and which 
have containers booked for the station; specifications of delays and how 
long containers can be stuffed in advance of the vessel arrival are input 
parameters for the program. Once it is determined that a set of containers 
should be stuffed, the routine then checks to see if those type of containers 
are physically available at the stuffing station; cargo stuffing then begins 
for those available containers and the POD to which the vessel is destined. 
Actual stuffing procedures are controlled by three factors: stuffing lists, 
minimum load requirements, and the container size sequencing procedure. 

Each are explained below, and examples illustrating their operation follows. 

Stuffing Lists 

Simply stated, the stuffing lists are inputs to the simulation pro- 
gram and they define the sequence in which the stuffing routine attempts 
to load cargo into containers, and also specifies which consignee cargos 
can be mixed with others. There are a set of stuffing lists for each POD. 

The set of stuffing lists for each POD are broken down into subsets called 
chapters. Basically, a stuffing list displays a set of consignees whose 
cargo can be mixed in a single container; the order in which each list is 
sequenced as input data controls how cargo will be stuffed by the routine. 
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Also, each stuffing list specifies an adjustment factor used in conjunc- 
tion with the breakeven point in order to determine the minimum load 
requirement . 

The stuffing list inputs to the simulation program provides the 
ability to influence the proportion of containers which are loaded with 
single consignee cargo, the level to which containers must be filled 
before being stuffed and closed out, and the various ways in which 
consignee cargos can be mingled. 

Minimum Load Requirements 

The minimum load requirement controls the initiation of cargo 
stuffing into a container. Specifically, it represents the volume of 
cargo that must be on-hand for the consignees on a stuffing list before 
the algorithm will use the stuffing list to load cargo into the container. 
The minimum load requirement value is determined by taking the breakeven 
volume of the container on-hand and multiplying it by the breakeven ad- 
justment factor on the stuffing list being used. 

Container Sequencing 

The algorithm is designed to allow for controlling the order in 
which containers are stuffed within each chapter of the stuffing lists. 

When two or more container types are scheduled and available for stuffing 
on the same day for the same POD, the routine will stuff the containers 
in a sequence designated by parameter inputs for each stuffing lists 
chapter. 

The purpose of this feature, if desired, is to foster higher container 
utilization levels. Stuffing of larger containers prior to small containers 
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in each chapter, for example, will necessarily produce the situation 
where more cargo is available for the stuffing of large containers. 

Parameter inputs to the program designate the sequence in which 
the various container types are to be stuffed; this sequence is re- 
peated for each chapter. For example, suppose large containers ( 32 
feet in length or greater) were designated to be stuffed before small 
containers. The routine would first work through a chapter attempting 
to stuff available large containers, and then return to the beginning 
of the chapter and work through it again attempting to stuff small con- 
tainers. After both of these phases were complete, the routine would 
go to the next chapter and start the process over again. 



An Example of Stuffing Lists 

Assume the stuffing lists for POD X are as follows: (BAF = 

breakeven adjustment factor) 



Chapter 


1: 


Stuffing 


List 


A: 


Consignee 


4 


BAF 


= 


1.5 






Stuffing 


List 


B: 


Consignee 


7 


BAF 


= 


1.4 






Stuffing 


List 


C: 


Consignee 


6 


BAF 


= 


1.6 






Stuffing 


List 


D: 


Consignee 


3 


BAF 




1.5 


Chapter 


2: 


Stuffing 


List 


E: 


Consignee 


4 


BAF 


= 


1.1 












Consignee 


7 












Stuffing 


List 


F: 


Consignee 


5 


BAF 


= 


1.2 












Consignee 


3 












Stuffing 


List 


G: 


Consignee 


8 


BAF 


= 


1.1 












Consignee 


9 


















Consignee 


3 












Stuffing 


List 


H: 


Consignee 


1 


BAF 


= 


1.0 












Consignee 


2 








Chapter 


3: 


Stuffing 


List 


I: 


Consignee 


4 


BAF 


=1 


1.0 












Consignee 


7 


















Consignee 


5 


















Consignee 


3 












Stuffing 


List 


J : 


Consignee 


9 


BAF 


= 


1.1 












Consignee 


8 









Consignee 3 
Consignee 1 
Consignee 2 
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The structure of the above lists would direct the stuffing routine 
to do the following general things when containers are available for POD 
X. First, the routine would attempt to stuff cargo for consignees 4,7,6, 
and 3 into vans, provided that minimum load requirements could be met in 
each case; in this chapter none of the cargo would be mixed with another 
consignee’s cargo inside the same van because each list has only one con- 
signee. If containers were still available after the above, the routine 
would then attempt to stuff vans, provided that minimum load requirements 
are met, with the remaining cargo of consignees (4,7), consignees (5,3), 
consignees (8,9,3), and consignees (1,2); in this chapter, the routine 
would mix only the cargo of consignees on the same stuffing list. Finally, 
if containers were still available after the above activities, the routine 
would attempt to stuff a van with the combined remaining cargo of consignees 
(4, 7, 5, 3) provided that minimum load requirements are met; the same would be 
done for consignees (9, 8, 3, 1,2). 

As an illustrative point, note that the cargo of consignee 6 will 
never be mixed with other cargo in a van because it appears only on one 
list, and it is the only consignee on that list. 

A Detailed Example of Stuffing Procedures 

Using the above stuffing lists, suppose that ten type Y containers 
are scheduled for POD X, and are available to be stuffed on a particular 
day; also, suppose that the breakeven point for container type Y to POD 
X is 500 cubic feet, and that the maximum usable volume in the container 
is 1500 cubic feet, and the maximum allowable cargo weight is 40,000 
pounds (20 tons) . 
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The algorithm would begin in this case by identifying the volume 
of cargo on hand for consignee 4. Suppose the volume of cargo for this 
consignee initially exceeds the minimum load requirement of 750 cu. ft. 
(1.5x500 = 750). The routine would then begin loading the shipments 
into the van on a strict first-in-first-out basis until either the cargo 
for consignee 4 was depleted, or a shipment is encountered which if load- 
ed would exceed either the cumulative 1500 cu. ft. volume or 20 ton weight 
constraint. If the former occurred, then the container would be closed 
out and transfered; if the latter occurred , then the shipment would be 
split so that a portion of it could be accommodated and the van would 
then be closed out. (Algorithm parameters are set so that splitting will 
occur only if the volume of the shipment exceeds 200 cu. ft.) If the 
shipment is too small to be split and yet can not fit in the van, the con- 
tainer is closed out and transfered as is. 

At this point, the algorithm would attempt to stuff the next container 
It would first check to see if the remaining on-hand cargo volume for consig 
nee 4 exceeds 750 cu. ft.; if so, it would proceed as before in loading 
consignee 4 cargo. If not, the routine would jump to the next stuffing list 
and check to see if the on-hand cargo volume for consignee 7 exceeds 700 cu. 
ft. (1.4x500 = 700); if the cargo volume exceeds 700 cu. ft. the routine 
would begin stuffing cargo for consignee 7 in the same manner as was done 
for consignee 4. If the volume for consignee 7 did not exceed 700 cu. ft., 
then the routine would jump to the next stuffing list, which displays con- 
signee 6, and continue the procedure. 

The above general steps would continue until either the ten containers 
were filled or the routine reached the end of the first chapter. In the 
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former case, the routine would rearrange the stuffing lists in the first 
chapter so that the stuffing list which was last used would be at the be- 
ginning of the chapter. This is done to rotate the order in which 
containers are supplied to the various consignees on the lists; for example, 
if stuffing list C was the last stuffing list to be used, then stuffing list 
C would be arranged to be the first list in chapter one, followed by D,A, 
and B. The procedure followed in the case where the routine reaches the 
end of the chapter is discussed in the next paragraph. 

Assume, for the moment, that the routine had worked its way through 
chapter one of the stuffing lists and still five containers remained to be 
stuffed. The routine would then begin with chapter two and check to see if 
the combined on-hand cargo volume for consignees 4 and 7 exceeds 550 cu. ft. 
(1.1x500 = 550). If so, it would begin stuffing consignee 4 cargo into a 
van, and when depleted it would begin stuffing consignee 7 cargo into the 
remainder of the van. As before, the van would be closed out if either the 
cargo for these two consignees is depleted or the van is filled; splitting 
rules are the same as previously described. On the other hand, if the total 
cargo for consignee’s 4 and 7 did not exceed 550 cu. ft., the routine would 
have jumped to stuffing list F and checked to see if the total on-hand cargo 
volume for consignees 5 and 3 exceeds 600 cu. ft. (1.2x500 = 600), and so on. 

In conclusion, the routine would continue through the stuffing lists 
of the chapters until either the ten type Y containers were stuffed, or 
the routine had worked itself through the last chapter of the stuffing lists 
for POD X. In any case, the routine would then check for containers des- 
tined to other PODs scheduled and physically available for stuffing on that 



particular day. 
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It is important to point out and emphasize several things at this 
juncture. Firstly, each time a container is closed out, the stuffing 
list which was used to load the container is rotated to the beginning of 
the chapter so future stuffing in the chapter will begin where it was 
left off; as mentioned, this is done to equalize the allocation of avail- 
able containers to the stuffing lists within a chapter. 

Secondly, each day the routine begins with chapter 1 of the stuffing 
lists for each POD, and then proceeds through the chapters picking up where 
it left off when the next stuffable container type is the same POD and con- 
tainer type just stuffed; this feature is built in to avoid the unnecessary 
repetition of jumping through stuffing lists which have been previously ex- 
hausted during the day. On the other hand, the routine jumps back to chapter 
1 during a day^s operation when the POD or container type changes; this fea- 
ture is incorporated to cover the possibility that the new container type's 
different size may allow for the stuffing of cargo previously passed over. 

Thirdly, stuffing is performed on a strict first-in-first-out basis 
for each consignee; i.e. no shipment will be stuffed prior to shipments 
which have arrived earlier for the consignee. 

Fourthly, splitting is undertaken only if the shipment is of suffi- 
cient size as specified by program parameters; if a shipment cannot be 
split, the container is closed out and transfered as is. These latter two 
features were incorporated to maintain the simplicity of the algorithm. 
Obviously, other more complex decision rules could have been employed and 
they, of course, would have required additional parameters; however, it 
again was felt that simplicity would be of greater value here. 

Fifthly, the stuffing example previously illustrated was one where 
only one container type was destined to the POD during the day. If two or 
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more container types had been scheduled and physically available for the 
POD, then the procedure would have differed to the following extent. Those 
containers designated by inputs to be stuffed first would have been first 
selected for stuffing in each chapter before the other. This sequence would 
cycle through for each chapter in the stuffing lists. At this time the 
sequencing is designated through data preparation programs (which prepare 
input parameter decks) to first stuff containers with a cubic feet volume 
greater than 2000 cubic feet; smaller containers are stuffed second. 

Creation of the Stuffing Lists 

At this time the stuffing lists are created by a program that analyzes 
traffic volumes to each consignee. Details of the program are presented in 
a later chapter; a few general comments are given here. 

For each POD there are two chapters of stuffing lists. The first 
Chapter consists of a set of stuffing lists where each stuffing list contains 
only one consignee, and there is one list for each consignee assigned to the 
POD. The second chapter consists of a set of stuffing lists where each list 
displays the consignees serviced by a breakbulk point, and there is one list 
for each breakbulk point. The above structure directs the stuffing routine 
to stuff and close out as many vans with single consignee cargo as possible 
in the first chapter, and then attempt in the second chapter to stuff re- 
maining cargo into vans where cargo can be mixed according to breakbulk 
point. A particular consignee is forced to receive only single consignee 
vans by simply not including its name on a list in chapter two. 

Variations in single consignee measures for a POD are achieved by forc- 
ing the larger volume consignees to receive only single consignee vans; i.e. 
cargo for the larger consignees is not mixed in a van with any other consignee 
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Currently the program that generates the stuffing lists for the simulation 
model creates four sets of stuffing lists which are used to influence 
single consignee measures. The first set does not force any single 
consignee vans; the second set forces single consignee vans on the largest 
consignees who make up not more than 91% of the POD’s volume; the third 
set forces single consignee vans on the largest consignees who make up not 
more than 94% of the POD’s volume; and the fourth set forces single 
consignee vans on the largest consignees who make up not more than 97% of 
the pod’s volume. 

When the created lists are fed to the simulation model the resulting 
single consignee measures will, of course, be higher because the lists 
only specify the minimum amount of volume that must move in single consignee 
vans. For example, using the first set of lists, which does not force any 
single consignee vans, the routine will end up stuffing more than 50% of 
the vans with single consignee cargo because of the large volumes of cargo 
available for certain consignees. 

Vessel Inputs 

The vessel input routine is called upon daily to transfer vessel 
schedule data to the container vessel stack. This stack contains data 
concerning vessels which will arrive within the planning horizon. The 
current planning horizon parameter is set at 21 days; this means that 
data on the vessels which will arrive in the next 21 days is maintained 
in the container vessel stack. 

The routine reads from an external file that contains vessel seg- 
ment data arranged in order of the vessel’s arrival at the POE. The 
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routine advances through this file each simulated day, adding records to 
the stack for those vessels which arrive within the planning horizon. These 
data records are stored in their order of arrival using a list linking tech- 
nique . 

The input records contain the following information: 

1. Voyage serial number. 

2. The serial day of arrival at the POE. 

3. The POD number to which this vessel section is initially 
dedicated . 

4. Number of immediately following vessel sections (records) 
pertaining to the same vessel/voyage. (This datum is 
provided so that future versions of the model can real- 
locate containers dedicated to PODs within a vessel; the 
model does not presently do this.) 

5. Container type number. 

6. Number of containers reserved for the stuffing station; 
this amount is referred to as the ’basic reserve’. 

7. Number of containers, beyond the above reserve, which 
can be booked through the screening algorithm of the 
booking routine. This amount is referred to as the 
’beyond basic reserve*. 

The above data, along with a counter initially set to zero, are added to 
the container vessel segment stack. The above mentioned counter will be 
used to identify the number of containers booked on the vessel segment 
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for the stuffing station which have been stuffed and awaiting lift. 

The vessel schedule file is ’’recycled” in the same manner as the 
shipment file; that is, the file is rewound, arrival dates are adjusted 
as the file is reread. As before, this facilitates repetitive simulation 
of the data. 



Booking Procedures 

The approach taken here to book space (containers) aboard vessels is 
based upon, a comparison of forecasted needs with outstanding bookings. If 
the former is greater than the latter, then additional space is requested. 
Requests for additional containers are met in different ways depending on 
whether or not a vessel has containers initially dedicated to the stuffing 
station. 

Generally speaking, the booking algorithm examines a list of vessel 
arrivals. A parameter limits how far the list extends into the future; 
normally, a three week horizon is used. The algorithm then forecasts the 
expected number of stuffed containers that can be loaded on each vessel 
upon its arrival. This forecast takes in to account on-hand POD inven- 
tories, expected volume inputs, and historical volume utilization factors. 

A comparison of needs with existing bookings determines whether or not 
additional bookings are necessary. This procedure is simulated daily. 
Details are described below. 

General Procedure 

The container vessel stack (list) contains vessel data in order of 
arrival at the stuffing station port. As mentioned, it contains data only 
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on those vessels which arrive during the designated planning horizon. 
Vessel data includes the following general information: 

1) Date of vessel arrival. 

2) Ports of call. 

3) Types of containers which can be loaded aboard the vessel. 

4) Vessel voyage number (for identification purposes) . 

5. The number of containers dedicated for booking by the 

stuffing station; these are later referred to as the 
basic reserve. 

6) The number of containers available for booking by the 
stuffing station beyond the above basic reserve. 

7) The number of containers booked for the stuffing 
station, but not as yet stuffed with cargo. 

8) The number of containers booked on the vessel (for the 
stuffing station) which have already been stuffed. 

When the booking routine is called by the main program, it sequentially 
examines each vessel in the list. For each vessel it first determines 
if there is enough time to dispatch and stuff containers in advance of 
the vessel’s arrival, and if there are containers available for booking 
on the vessel. An affirmative response on both these questions leads 
to the calculation of forecasted requirements; a negative response on 
either point causes the routine to examine the next vessel. When the 
end of the stack is reached, control is returned to the main program. 

Calculation of requirements is accomplished by taking the on-hand 
cargo volume for the POD in question, adding to that the expected cargo 
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volume which will arrive in time to be stuffed into containers and lifted 
aboard the vessel, and subtracting from that the total volume of cargo 
already booked aboard all vessels destined for the POD. The resulting 
net requirements are in terms of cargo cubic feet. The routine then 
determines the number of containers necessary to meet these requirements, 
taking into account recent volume utilization factors for the POD and 
type of container in question. A positive need for containers leads to 
a booking attempt on the vessel. 

Given a need for containers, the routine first checks to see if 
they can be obtained from the vessel’s basic reserve. If so, the basic 
reserve containers are decremented, and the number of containers booked 
are increment in the vessel data by the appropriate amount. If additional 
containers are still required, then there is an attempt to book beyond 
basic reserve containers; whether or not these containers are obtained 
depends on the following process. 

Given the number of days before the vessel’s arrival, a random 
process determines whether bookings will be allowed. As time before 
arrival increases, the probability of being allowed to make a booking 
increases. Input parameters control the threshold, rate of increase, 
and maximum probability values. Once it is determined that a booking 
is allowable, the routine then determines how many of the beyond reserve 
containers will be made available for this particular booking. Input 
parameters control whether all beyond reserve containers will be made 
available, or just a uniformly random portion thereof. Any containers 
booked through this process are, of course, reflected through modifica- 



tions in the vessel data. 
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Control Parameters Review 

The booking procedures described above can be controlled through 
a variety of parameter inputs. Most parameters are fed to the simula- 
tion model when it executes; however, the number of basic reserve 
containers, and beyond basic reserve (other) containers on each vessel 
must be fed through the container vessel schedule generation program 
which creates the schedule. Parameter values and their application are 
described elsewhere in program documentation, nevertheless, a few para- 
graphs will be used here to describe those that relate directly or 
indirectly to booking. 

The parameter CTDEL reflects the time it takes to dispatch and 
stuff a container through the stuffing station and transfer it back to 
the yard for lifting onto a vessel. Clearly, one would not be concerned 
with additional bookings on a vessel which is due to arrive in less than 
CTDEL days because the time it takes to dispatch and stuff such containers 
would be too great for them to be lifted. Containers already stuffed and 
in the yard will necessarily have been booked on the vessel. 

The parameter CFESP, indexed for the POD, is the exponential smooth- 
ing parameter used for forecasting cargo volume arrivals of the POD. In 
terms of the simple exponential smoothing model, CFESP is the alpha value. 
The forecast is computed by accumulating weekly cargo volume inputs by POD, 
dividing it by seven, and smoothing the result. The forecast value is in 
terms of cubic feet per day, and is updated every seven days. 

The parameter CUESP, indexed by container type and by POD, is the 
exponential smoothing parameter used for forecasting container volume 
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utilization. This forecast is updated each time a block of homogeneous 
containers are lifted aboard a vessel using CUESP as the alpha parameter. 

The parameter CFAF, indexed by POD, is an adjustment factor used in 
calculating expected cargo receipt volumes when estimating booking require- 
ments. Recall that POD requirement is the on-hand cargo volume plus the 
expected cargo volume which will be received between now and the latest 
time the cargo can be stuffed for loading on the vessel, minus the POD 
cargo volume already booked. The parameter CFAF is used in the calcula- 
tion of the cargo volume that will be received. If CFAF equals one, then 
expected receipts will be the daily volume forecast times the effective 
number of days before the vessel's arrival. If CFAF equals (.5), 
then expected receipts would be half the above, etc. 

The parameter CRELT, indexed by POD, limits the time in which basic 
reserve containers can be booked. Unbooked basic reserve containers can- 
not be booked in less than CRELT days before the vessel's arrival. This 
feature is incorporated to limit bookings on vessels which arrive in the 
immediate future. 

The parameter CSTRT, indexed by POD, is used for beyond basic re- 
serve booking. It is the minimum number of days in advance of a vessel's 
arrival in which a booking for beyond basic reserve containers can be 
made. Any request not meeting this limitation will be rejected. A 
request in advance of the CSTRT limitation will be handled in a random 
process which is dependent on the additional parameters XCMXLB, and 
CRNG. Any requests made CSTRT plus CRNG days in advance of a vessel's 
arrival will be rejected (1-XCMXLB) of the time. Requests made between 
(CSTRT) and (CSTRT + CRNG) days in advance of a vessel's arrival will 
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be randomly rejected on a linearly decreasing scale from (1-0) to 
(1-XCMXLB), 

Assuming a request is not rejected, then the parameter CDSTYP 
influences its final fate. If CDSTYP equals 0, then the number of 
containers made available to the request equals the number of unbooked 
beyond basic reserve containers on the vessel. If CDSTYP equals 1, 
then the number available to the request is determined from a uniformly 
distributed random variable which ranges from zero to the number of 
unbooked beyond basic reserve containers. 

The above parameters provide the means for controlling the booking 
processes. Among other things, it is feasible to control the proportion 
of cargo that ends up being carried in the various vessels by appropri- 
ately adjusting the value of the parameters XCMXLB(I,J), This influences 
the probability of accepting a booking request for beyond basic reserve 
containers, and in conjunction with vessel arrival frequencies, dictates 
the proportion of the various types of containers booked for a POD, 

Container Lifts 

The container lift routine takes the records in the stuffed container 
stack and matches them with vessel segment data when the vessel arrives. 
Also, tabulations and statistical calculations are performed. In fact, a 
major portion of the routine is devoted to statistical compilations. Among 
other things, it computes average container volume utilizations that in 
turn are used as forecasts in booking procedures, and it computes cargo and 
container ages for operation summaries. 
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Another important function of the container lift routine is to 
reclaim containers that were dispatched to the empty container pool, 
but never stuffed; these unused containers are reclaimed when the vessel 
arrives. At the same time, the container lift routine reduces the booked 
container volume accumulator (CVPB) for the POD by the volume of these 
unused containers. If requested, the results of booking operations (e,g. 
number of containers booked, unbooked, unused, etc.) at the time of each 
vessel’s arrival can be printed, or written on external files. 

In summary, this routine simply closes out the vessel and container 
data created by the other routines. 

Container Dispatching 

The container dispatching routine controls the replenishment of 
empty containers to the empty container pool. This is a very important 
factor affecting stuffing because the simulation model is structured so 
that stuffing operations begin for a vessel only when empty containers 
are available in the pool. In review, the stuffing routine first iden- 
tifies those vessels which will arrive between CSATT and MASDVA days from 
the current day; the booked containers on those vessels are eligible for 
stuffing, and attempts will be made to stuff them if the containers are 
available in the empty container pool, (Recall that CSATT is the time 
it takes to stuff a container and transfer it to the pier. The variable 
MASDVA equals CSATT 4* MXADVS , where MXADVS is a parameter representing 
the length of the stuffing time horizon; the smallest feasible value for 
MXADVS is zero, in which case available containers would have to be 
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stuffed exactly CSATT days before the lifting vessel *s arrival.) Hence, 
the container dispatching routine controls container availability during 
the stuffing time horizon. 

Presently, a very simple procedure is used by the dispatch routine: 
all containers booked on a vessel for the stuffing station are made avail- 
able to the stuffing station exactly CSATT days before the vessel's arrival. 
However, keep in mind that if MXADVS is one or greater, then some empty 
containers left over from previous operations may be stuffed for a vessel 
before the dispatched empty containers arrive at the stuffing station for 
that vessel. This carry over would occur when sufficient cargo is not 
on-hand for stuffing available containers. Such leftover containers 
would remain in the empty container pool until they were either stuffed 
or reclaimed by the carrier. The container lift routine is programmed 
to reclaim all unused containers when the vessel arrives; this means 
that leftovers will remain in the pool no longer than CSATT days. 

For the simulations carried out for the analyses described in the 
last chapter of this report MXADVS was set to zero. In light of the 
dispatch routine, this means booked containers are made available and 
stuffed (if cargo is available) exactly CSATT days before the lifting 
vessel's arrival. 

One additional point needs to be mentioned here, and that is the 
fact that the empty container pool is partitioned not only by the types 
of containers, but also by the POD to which the containers are destined. 

The reason for this is that if containers for a vessel are dispatched 
over a period of time, then it becomes necessary to insure that containers 
are equitably distributed among the PODs . In other words, if the POD 



32 



designation was not maintained, then those PODs whose cargo is stuffed 
early in the day would have a greater supply of containers than those 
later in the day. 



Utility Subroutines 

The simulation program employes several routines which perform 
general functions. They are briefly discussed here. 

The subroutine NXTREC and the subroutine RELREC are used for linked 
list record access and storage respectively. Each time NXTREC is called, 
it identifies the location of the next available core record so it can 
be used in the data record stacks; it obtains the record from a pool of 
unused records. Each time a record is deleted from a data stack, the 
RELREC subroutines is call to return the record back to the pool. 

The subroutine STATE is simply a dump routine which lists certain 
variables when the execution of the simulation model is terminated. Iden- 
tification of these variables is accomplished by examining the routine. 

The subroutine RANDU is a random number generator used in the 
booking routine. Basically, it generates a uniformly distributed random 
number between zero and one. The "seed" for the generator is entered at 
the beginning of each simulation run. 

Main Program 

The main program performs five major functions. Firstly, it 
reads program control parameters. Secondly, it initializes variables 
and sets up the record pool. Thirdly, it calls, on a daily basis, the 



33 



container dispatch routine, shipment input routine, stuffing routine, etc. 
until the simulation is terminated. Fourthly, it computes average daily 
POD volume inputs from weekly arrivals using an exponentially weighted 
method. Fifthly, it computes summary operation statistics by POD which 
are printed out, and, if requested, punched on cards. 

As mentioned elsewhere, most all parameter inputs to the program 
are entered in a compacted form. With exception of several cards, the 
parameter input to the program is created by data preparation programs 
which are discussed in later sections. 

Summary of Inputs and Outputs 

The simulation program, as a whole, requires the following general 
types of information: 

1. The number of consignees, POD’s, and container types to be used 
in the simulation. 

2. The desired duration of the simulation, in days. 

3. The number of groups which the container types are classified. 
(This has to do with the order in which the various container 
sizes are stuffed in the stuffing routine when more than one 
type of container is available for a POD in a single day.) 

4. The seed to the random number generator used in the booking 
routine. 

5. An option parameter designating whether or not a print out 
is desired describing the status of each vessel after it is 



loaded . 
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6. An option parameter designating whether or not POD operation 
summaries punched on cards is desired. 

7. The desired value for CDELCT, which is the time, in days, it 
takes a container to move from the carrier to the stuffing 
station. 

8. The desired value for CDELTS , which is the time, in days, it 
takes a container to be stuffed. 



9. The desired value for CDELTC, which is the time, in days, it 
takes a container to move from the stuffing station to the 
carrier's pier. 

10. The desired value for MXADVS , which is the stuffing time 

horizon, in days. It specifies the length of time in which 
containers can be stuffed for a vessel in advance of the 
latest stuffing date. The latest stuffing date is CSATT days 
in advance of the vessel’s arrival, where CSATT = CDELTS + 
CDELTC. Note that two other parameters are derived from the 
above values: MASDVA = CSATT + MXADVS, and CTDEL = CSATT + 
CDELTS. The former represents the maximum number of days 
that a container can be stuffed in advance of a vessel’s 
arrival. The latter represents the minimum number of days 
in advance of a vessel’s arrival that a booking can take 
place because of container dispatching and turn around time. 



11. A mnemonic code to identify the simulation run. 

12. A specification of which transactions are to be reported on 
external files. This specification designates the logical 
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unit number to be used for the report. 

13. Parameters for each container type concerning the maximum 
cargo volume, maximum cargo weight, and the stuffing group. 

14. Parameters for each container type and POD combination con- 
cerning the breakeven point volume, the forecasted container 
utilization proportion, the exponential smoothing parameter 
to be used for forecasting utilization, the lost stowage 
volume, and the maximum success probability for booking 
beyond basic reserve containers. 

15. Parameters for each POD concerning the average daily forecasted 
cargo volume, the exponential smoothing parameter to be used 
for forecasting POD volume, and the adjustment factor to be 
used when calculating the volume of cargo that will arrive 

for a POD within a given time horizon. 

16. Booking parameters for each POD concerning beyond basic reserve 
and basic reserve containers. 

17. Stuffing lists. 

18. The group in which each consignee falls. This input is 
necessary because a portion of POD operations summary 
statistics are displayed using four groups of consignees. The 
data input here specifies with which group each consignee’s 
data is to be tabulated and displayed. 

19. Scheduled vessel arrivals, the PODs which they serve, and the 
number of containers available on each vessel. 

20. Shipment arrivals, including volume and weight. 
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The simulation provides the following overall operations data: 

1. The mnemonic code identifying the simulation run. 

2. The mnemonic codes identifying the input parameter files. 

3. The day at which the simulation was terminated. 

4. The total number of shipment segments which arrived at the 
terminal. 

5. The total number of containers which were stuffed at the 
terminal. 

6. A listing of certain variable values at the end of the 
simulation. (See the utility subroutine STATE). 

The following operations statistics are listed for each group of 
consignees at a POD: 

1. Number of shipments stuffed. 

2. Minimum shipment age at stuff. 

3. Average shipment age at stuff. 

4. Maximum shipment age at stuff. 

5. Standard deviation of shipment age at stuff. 

6. Total cargo volume stuffed (cubic feet). 

7. Percent of cargo that was stuffed in single consignee vans. 

8. Container volume utilization (percent) for all vans. This was 
computed by taking the total volume of all containers stuffed, 
and dividing that into the total volume of cargo stuffed. 

9. Container volume utilization in single consignee vans (percent). 

10. Container volume utilization in mixed consignee vans (percent). 
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11. Total cargo weight stuffed (pounds). 

12. Container weight utilization (percent). 

The following operations statistics are listed for each POD: 

1. Number of shipments stuffed. 

2. Average shipment age at stuff. 

3. Standard deviation of shipment age at stuff. 

4. Total cargo volume stuffed (cubic feet). 

5. Proportion of cargo stuffed in single consignee vans. 

6. Container volume utilization (proportion) for all vans. 

7. Container volume utilization in single consignee vans (pro- 
portion) . 

8. Container volume utilization in mixed consignee vans (pro- 
portion) . 

9. Total cargo weight stuffed (pounds). 

10. Container weight utilization (proportion). 

11. Number of vessels which carried containers for the POD during 
the simulated time span. (This is referred to as the number 
of lifts.) 

12. Average days between lifts. 

13. Standard deviation of days between lifts. 

14. Average container age when lifted aboard the vessel. Container 
age at lift is defined here as the time between the stuffing of 
a container and its loading aboard a vessel. 



15. Standard deviation of container age at lift. 
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16. The following information is given for single consignee 
containers, mixed consignee containers, and both of the above 
for each container type that carried cargo to the POD: 

a. Number of containers. 

b. Number of shipments stuffed in those containers. 

c. Volume utilization in those containers, (propor- 
tion) . 

d. Cargo volume stuffed in those containers, (cubic 
feet) . 

17. The average days between lifts (ADBL) , and the standard devi- 
ation of days between lifts for each type of container. 

If specified by the user, the above POD information can be punched directly 
on .cards in a compressed format. 

Data on individual transactions in the simulation can also be written 
out on external files. Presently, data relating to the following trans- 
actions/events can be reported if desired: 

1. The waiving of minimum container load requirements because of 
cargo configuration. 

2. The stuffing of a shipment segment. 

3. The completion of a vessel loading. 

4. The completion of a container stuffing. 

The above four transactions/events give rise to six possible reports. 
Details of these reports are given in a later section, however, it 
should be pointed out here that the above reports are outputed in 
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binary form and can be printed only after decimal conversion. 

Nevertheless, the simulation program does provide the additional 
option of having certain vessel data directly printed in the output. 

This listing is referred to as the Container Lift Report, and provides 
the following infomation on each vessel segment which arrives at the 
POE: 

1. The day which it arrives/departs. 

2. Voyage number of the vessel. 

3. The POD at which it calls. 

4. The container type which it carries. 

5. The number of containers that were loaded aboard. 

6. The number of single consignee containers loaded aboard. 

7. The container volume and weight utilizations (proportions) 
of the containers . 

8. The number of containers booked but not stuffed (over booked 
cancelations) . 

9. The number of basic reserve containers which were not booked. 

10. The number of beyond basic reserve containers which were not 
booked . 

11. The average container age (days). 

12. The average age of the cargo at stuff (days). 

The above report is useful for examining booking results, and the activity 
variations that occurred throughout the simulated period. 

A printed output sample of the simulation is listed in Figure 2. 

From the above discussions, one should be able to follow the definitions 
of the data through the listings in this table. 
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Figure 2,- Ssanple Printout of the Siinulation Program (Sheet 2 of 2) 
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Chapter III 

SIMULATION PROGRAMMING METHODS 



This chapter describes some detailed aspects of the simulation program. 
The actual program and its flow charts are listed in Appendix C. 

As presently written, the program does not require overlays. Core 
requirements are dependent on the number of shipment segments waiting to be 
stuffed at any one time. Roughly speaking, core requirements in terms of 
bytes are 125K plus 20 times the number of shipment segments that would be 
on hand at any time. (An average input of 200 shipments per simulated day 
could produce as many as 9000 on hand shipments when conservative stuffing 
policies are applied, and as few as 4000 shipments when liberal policies 
are applied.) Average CPU time on the IBM 360/67 ranges between 2 and 3 
milliseconds per processed shipment. The larger figure applies when data 
concerning all transactions are written on external files. 

Most of the variables in the program are of the integer mode. The 
variables which could be ascertained as always having values under 32000 
were designated as two byte integer words (16 bits) ; the others were four 
byte integer words. All of the record stacks consist of two byte words. 
Precautions were taken in the program to insure that words were of 
sufficient size to hold the data they were intended to hold. When 
necessary, double precision (eight byte real mode) variables were used; 
this was the case for certain operations statistics accumulators. 

Shipment and vessel data is real in binary form in terras of two byte 
integer words using the A2 format specification. Also, transaction 
outputs are written in this form. The reason for this is to eliminate 
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conversion time. As mentioned previously, precautions were taken to keep 
input and output within the two byte integer limitation. ( A word of 
caution here, when writing and reading in binary using the '*A" format 
specification in FORTRAN, one must be aware of the shifting and blank 
filling that will occur if improper variable length are used.) 

Common variable names and their definitions used in the program are 
listed in the first part of Appendix C. Also, the names and definitions 
of variables used to compute operations statistics are listed there. 

Simulation Transaction Report Records 

Each time certain transactions /events occur in the simulation, data 
relating to these events can be written on an external file. This section 
generally describes these outputs, and how the user initiates them. Specific 
card inputs for this feature are discussed in Chapter 4 and Appendix E; 
specific output formats are presented in Appendix F. 

All record fields are written as two byte words. Their contents are 
binary integers and can be read by a A2 FORTRAN format specification provided 
that the reading variables are two bytes in length. The following reports 
can be requested: 

1. Data concerning each container waiver. 

2. Data concerning each shipment segment stuffed 
into a container. 

3. Data concerning the booked status of each vessel 
when loaded . 

4. Data concerning the aggregate characteristics 
of containers loaded on each vessel. 
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5. Data concerning each container stuffed and 
closed out at the stuffing station, 

6. Abbreviated data concerning each stuffed 
shipment . 

The above information can be written all on the same file, or on separate 
files depending on which logical unit number is designated by the user for 
each report. If no logical unit number is assigned to a report, then it 
is not written. If a report is desired, it is necessary to inform the 
simulation, through card input, that report number X is to be written on 
logical unit Y, and to also define the file for the computer. Logical 
unit device numbers 1 through 13 should not be used for transaction reports 
because they designate other standard I/O devices in the program. 

Record Storage in Stacks 

Data pertaining to shipments, vessels, and containers are stored in 
the various stacks using list processing (linking) techniques. Pointers 
are used to sequentially identify the list of records in a particular 
stack. Records in different stacks will be mixed in a common area of 
core so as to keep core requirements at a minimum. 

Presently, all stack records in the program are a fixed length of 10 
two byte integer words. The first word in all the records is used to 
point to the location of the next record in the stack; a zero value in 
the first word denotes the end of the stack. 

The array REC() is used to store the stack records, (It is also used 
to store the stuffing lists, as will be discussed later,) The arrays 
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CSF() and CSL() are used to point to the first and last records, respec- 
tively, in the containerizable shipments stacks for each consignee. The 
arrays SCF() and SCL() are used to point to the first and last records, 
respectively, in the stuffed container stacks for each POD and container 
type pair. The variables CVF and CVL point to the first and last record 
in the container vessel schedule stack respectively. For the above 
beginning and ending pointers, a zero value denotes that the stack is 
empty. 

Figure 3 specifies the contents of the records in the stacks. The 
numbers preceding the definitions are the relative locations of the fields 
with respect to the beginning of the record. The values stored in the 
fields will be less than 32K under normal circumstances. 

The pointers in this linked list system are scaled by a factor of 
RECSIZ (ten in this case), A pointer value multiplied by ten gives the 
location of the beginning field of the record in the REC() array, (As 
shown in the Table, the beginning field of a record, in turn, points to 
the next record.) 

The subroutines NXTREC and RELREC are used to access and return 
records from a record pool respectively. This pool of unused records is 
created by the main program during the initiation of the simulation. 

Should the pool be exhausted, the program will be terminated with an 
appropriate message. To expand the pool, it is necessary to enlarge the 
dimension of REC(), and make a corresponding adjustment to the value of 
LSTREG in the main program. 
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STACK FIELDS 



CONTAINER VESSEL SECTION STACK 
0 POINTER TO NEXT RECORD. 

ACTUAL NUMBER OF CONTAINERS BOOKED FOR THE CONTAINER FREIGHT 
DEPOT (CFD), BUT NOT STUFFED AS YET. 

ESTIMATED DATE OF ARRIVAL. 

NUMBER OF CONTAINERS RESERVED DIRECTLY FOR THE STUFFING STATION. 
THESE CONTAINERS, REFERED TO AS THE BASIC RESERVE, ARE DIRECTLY 
AVAILABLE FOR BOOKING. THEIR AVAILABILITY IS RESTRICTED ONLY 
BY THE CRELT PARAMETER. 

POD (SEQUENCE NUMBER). 

TYPE OF CONTAINERS (SEQUENCE NUMBER). 

NUMBER OF IMMEDIATELY FOLLOWING RECORDS WHICH CONCERN SAME VESSEL 
MAXIMUM NUMBER OF CONTAINERS AVAILABLE BEYOND THE BASIC RESERVE. 
THESE CONTAINERS ARE REFERED TO AS THE CONTAINERS (SPACE) 

BEYOND THE BASIC RESERVE, AND ARE BOOKED THROUGH THE RANDOM 
SCREENING ALGORITHM OF THE BOOKING ROUTINE. 

VOYAGE NUMBER. 

ACTUAL NUMBER OF CONTAINERS BOOKED FOP CFD WHICH ARE STUFFED AND 
WILL BE AVIALABLE FOR LIFT. 



1 

2 

3 



4 

5 

6 
7 



8 

9 



STUFFED CONTAINERS: 

0 POINTER TO NEXT RECORD. 

1 CONTAINER NUMBER (SEQUENCE NUMBER). 

2 TENTATIVE VOYAGE NUMBER. 

3 ACTUAL CARGO WEIGHT (HUNDREDWEIGHT). 

4 ACTUAL CARGO CUBE (CUBIC FEET). 

5 DATE STUFFED. 

6 ARRIVAL DATE AT YARD. 

7 TOTAL AGE AT STUFF OF DATED SHIPMENT SEGMENTS 



8 TOTAL NUMBER OF SHIPMENT SEGMENTS. 

9 TOTAL NUMBER OF DATED SHIPMENT SEGMENTS. 



CONTAINERIZABLE SHIPMENTS SEGMENTS STACK: 

0 POINTER TO NEXT RECORD. 

1 SHIPMENT NUMBER (SEQUENCE NUMBER). 

(NEGATIVE IF NOT THE LAST SEGMENT OF A SHIPMENT) 

2 CUBE (CUBIC FEET). 

3 WEIGHT (POUNDS). 

4 SHIPMENT TYPE 

5 DATE OF ARRIVAL AT TERMINAL. 

6 TENTATIVE POD (SEQUENCE NUMBER). 



Figure 3 
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Stuffing Lists Storage 

Stuffing lists are stored at the beginning of the REC() array, and 
they do not interact with the previously discussed stack records stored 
in the latter part of the REC() array. The lists are accessed and 
followed using linked list techniques. Each record in the list contains 
three fields, where the first field contains the pointer to the next 
record, the second field designates a consignee, and the third field 
contains a flag designating whether or not that consignee is at the end 
of the stuffing list. This third field is also used to designate the 
location of the value of the breakeven point adjustment factor for the 
stuffing list. 

The array SLP() is used to point to the stuffing list at the beginning 
of a chapter for a POD. Specifically, the value of SLP(L,J) contains the 
REC() array index of the first field of the record starting the (L)th 
chapter of the stuffing list for the (J)th POD. 

Figure 4 illustrates a sample stuffing list for a hypothetical POD K, 
and the corresponding values that would reside in the REC() and XADJ() 
arrays. (The XADJ() array contains the breakeven point adjustment factors 
for each stuffing list.) These sample lists reflect a procedure which 
attempts to stuff containers with single consignee cargo before mixing. 

As can be seen from sheet 2 of the Figure, each chapter is a circular 
list, where ending pointers point back to the beginning of the list. This 
was done to facilitate the rotation of the starting point within each 
chapter of stuffing lists. For example, the value of SLP(1,K) would rotate 
among the values 1,4,7,10, and 13; the value of SLP(2,K) would rotate among 
the values 16 and 25. The stuffing algorithm keeps track of where it 
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starts in a particular chapter so that it can recognize when it has made 
a complete cycle of the chapter. 



Example Stuffing List for POD K 



Chapter 1: 


Stuffing 


List 


P: 


Consignee 


1 


BAF =1.3 




Stuffing 


List 


Q: 


Consignee 


2 


BAF =1.1 




Stuffing 


List 


R: 


Consignee 


3 


BAF = 1.4 




Stuffing 


List 


S: 


Consignee 


4 


BAF =1.2 




Stuffing 


List 


T: 


Consignee 


5 


BAF =1.0 


Chapter 2: 


Stuffing 


list 


U; 


Cons ignee 


1 


BAF =1.5 



3 

4 



Stuffing List V: Consignee 2 BAF = 1.25 

5 

(BAF = Breakeven Point Adjustment Factors) 



Breakeven Point Adjustment Factor Array 



I XADJ(I) Value 



8 


1.3 


9 


1.1 


10 


1.4 


11 


1.2 


12 


1.0 


13 


1.5 


14 


1.25 



Figure 4, - Example Stuffing Lists and Program Control (Sheet 1 of 2) 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
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Stuffing List Array RECQ 



Field Values 

(Pointer, Consignee, Flag) 



Classification 



10 



13 



19 



22 



25 



28 



16 




- Example Stuffing Lists and Program Control (Sheet 2 of 2) 
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The third (flag) field in each record indicates the end of a stuffing 
list when its value is greater than zero. This positive value is also the 
index of the stuffing list’s breakeven point value in the XADJ() array, 
and is sometimes referred to as the stuffing list number. 

The stuffing lists data is read by the main program. First, the 
number of stuffing list chapters (levels) and the number of breakeven point 
adjustment factors are read. The program then reads the total number of 
fields to be read into the REC() array, and reads initial SLP() array 
values. The program then reads the values into the REC() array, and after 
that reads the values into the XADJ() array. (Later in the main program, 
the stack record pool is set up in the remaining portion of the REC() 
array.) Throughout the execution of the simulation, the stuffing list 
values read into the REC() and XADJ() arrays are not changed; however, 
the values in the SLP() array will be rotated within chapters to avoid 
biased stuffing. 
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Chapter IV 

GENERAL DESCRIPTION OF DATA DEVELOPMENT 



As with other simulation models of this magnitude, it is necessary to 
develop additional computer programs to prepare data inputs for the actual 
simulation program. This chapter discusses the general organization of the 
programs used for data preparation. Together, these programs perform four 
major functions. Firstly, they extract shipment data from WAMTMTS files. 
Secondly, they convert and assign serial numbers to mnemonic data. Thirdly, 
they provide condensed parameter and data inputs for the simulation model. 
Fourthly, they prepare alternative stuffing lists that can be used in the 
simulation. 

Figure 5 summarizes the overall structure of, and relationships among 
data preparation programs. (Figure 6 defines the symbology used in 
Figure 5.) Appendix B defines the record formats of relevant files along 
with a listing of the programs themselves, and Appendix E lists an actual 
input to the simulation program. The following paragraphs briefly describe 
the role of each program and file depicted in Figure 5. 

The Preliminary Selection Program selects shipment receipt records 
from WAMTMTS activity files and stores them in a file. Presently this 
program selects only the receipts of the MOTBA container freight station 
for a designated time period. The program logic of this selection proce- 
dure is revealed in the format description of the WAMTMTS records in 
Appendix B. The output of this program, the Preliminary Shipment Records 
File contains information on all the shipments received by CFS during the 
selection period. The Preliminary Shipment Record (P.S.R.) Program simply 



Figure 



52 





53 









X 

CO 



w| 

o 

o 

i-q 

Is 

0 

M 

PL^ 

w 

« 

PM 

< 

H 

C 

Q 

1 

•i 

UN 

0) 

5 ) 

•H 



54 









M 




!h J 








« O 5 




m 




> 




u 




E-t W M 
(t; Eh ce 


-> 


o 

Qi 


-> 


o <; a 




m 




CO Q ^ 




m 








-p 









Eh m 

2: « ».:) 


5 


U M PU 


pq 


» W CO o 


PM « 


O 


M O p 


ca 


m CO S 
CO ^ 


Pm 




55 



9 



JC 

m 



Eh 

(t: 

< 

W 

o 

o 

»-3 

SZ5 

O 

M 

Eh 

<} 

W 

cd 

<{ 

EH 

<{ 

Q 

I 

*% 

\A 

0 ) 

u 

5 ) 

•H 

Pr. 




n 

-P 

i:: 



u 



o 

p« 



♦ 



Indicates that tha flla has baan praTlously oraatad; saa 



56 



Figure 6,- DATA PREPARATION FLOW CHART 
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transfers this file to a backup tape for future reference, and the P.S.R. 
Check Program simply prints a portion of the file. 

The POD Selection Program selects cargo shipments for designated PODs 
from the Preliminary Shipment Records File, and transfers them to Shipment 
File I. This file, in turn, is sorted by consignee and stored in Shipment 
File II. The POD Selection Program is structured so that the number of 
shipments transferred to Shipment File I can be controlled by POD groupings; 
that is to say, the number of PODs whose shipments are transferred can be 
limited. 

The POD, Consignee, and Breakbulk Point Card File provides the following 
information. Firstly, it designates valid consignee mnemonic codes. 

Secondly, it designates which POD serves each consignee. Thirdly, it desig- 
nates the breakbulk point which serves each consignee; and fourthly, it 
identifies any old or alias consignee codes that belong to a consignee. 
Broadly speaking, the consignee codes in the Shipment Files are matched 
(unmatched codes are thrown out), then serial numbers for each active POD, 
consignee, and breakbulk point are assigned, and finally stuffing lists 
are developed with the information in this card file. 

The Consignee Screen Program performs two functions. One, it standar- 

o 

dizes consignee mnemonic characters by changing any alphabetic letter 0 to 
a numeric zero in the last 5 positions of the mnemonics. Two, it stores 
these newly created records in the Screened POD, Consignee, and Breakbulk 
Point File. This program creates one record if the alias field on the 
card is not filled, and two if it is filled. See format specifications in 
Appendix B. 
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The Consignee Match Program compares the consignee mnemonics in 
Shipment File II with the known consignee mnemonics in the ’Screened’ 

File. The consignee records in the ’Screened’ File which match one or 
more shipments in the Shipment File II are transferred to a file which is 
sorted and called the Condensed POD, Consignee, and Breakbulk Point File. 
Reiterating, this latter file contains only active consignee data; also, 
any duplicate records that may have been in the ’Screened’ File will not 
have been transferred to it. 

The Serialization Program takes the Condensed POD, Consignee, and 
Breakbulk Point File and assigns a serial number to each POD, consignee, 
and breakbulk point. The result is the serialized consignee file which 
contains a consignee, POD, and breakbulk point serial number for each 
basic or alias consignee mnemonic. An alias consignee mnemonic will have 
the same serial numbers as the basic mnemonic for the consignee. 

The Shipment Serialization and listing Program does three things. It 
takes the records in Shipment File II and converts the shipment data to 
the serial numbers in the Serialized Consignee File; the result is Shipment 
File III. It tabulates and lists total volumes and weights going to each 
consignee and POD. It calculates the proportion of POD cargo volume that 
is destined to each consignee, and transfers this information to the 
Condensed Serial File, along with POD, consignee, breakbulk point mnemonics 
and serial numbers. 

The Shipment Screen and Split Program takes Shipment File III, after 
it has been sorted by date of arrival, and makes some minor adjustments to 
create Shipment File IV. The program splits shipments whose volume or 
weight specifications cannot meet the 32,000 magnitude limitation of a two 
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byte integer word. Also, each shipment is assigned a serial number 
according to the order in which it arrived during the day. A shipment 
is split into segments according to the number of pieces which will reduce 
volume and/or weight magnitudes to tolerable ranges. The serial numbers 
for all segments of a particular split shipment will have the same absolute 
value, however, all but the last segment will have a negative value. 

The Stuffing List Generation Program produces stuffing lists and 
consignee group data from a sorted condensed serial file. Presently, this 
program generates four alternative stuffing lists as described in Chapter 
II in the section on Stuffing Procedures. Each set of the four lists is 
punched on cards which can be read by the simulation program. Each set is 
denoted by a header card entitled Ordered Stuffing List File, with the 
number in column 76 designating which set it is. Before the stuffing lists 
are punched, the program punches the Consignee Group Data File; it is 
preceded by a header card. The consignee groups are as follows: group 1 

consists of the largest consignees that provide not more than 91% of the 
cargo volume for the POD; group 2 is the next largest set of consignees 
that provide not more than the next 3% and group 4 is the final 3% 

(smallest consignees at the POD). 

The Parameter Setup Program creates a card file of parameters, 
sequenced according to serial numbers, from input data that is mnemonic 
oriented; in other words, this program takes parameters that are desig- 
nated by mnemonics and converts it to a serial number orientation so that 
it can be read by the simulation program. Also, the program lists these 
parameters for examination along with the Condensed Serial File. One 
unique feature of this program is that if certain parameters are not 
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specified, then default values will be automatically provided. These 
default values are listed in the format specifications of the card file 
inputs. At a minimum, the card inputs to this program must consist of: 

1. POD Mnemonic File (POD Names and Mnemonics) 

2. Container Description File 

3. The ^'header and last card" for each of the remaining parameter 
card files specified as input to this program in Figure 5, 

Sheet 3, 

The above input would produce a Ordered Parameter File consisting entirely 
of default values. Modifications to the above are achieved by placing 
cards punched with the desired values in the appropriate file format as 
defined in Appendix B; the specific meanings of these parameters can be 
determined by examining their definitions in Appendix C. 

The Vessel Schedule Generation Program creates the Vessel Schedule 
File used by the simulation program. The Vessel Schedule Parameters File 
provides the data inputs. In this file, data concerning each vessel pro- 
viding container transport must be stated in terms of the following 
parameters : 

1. The PODs which the vessel calls upon 

2. The type of container, and the maximum number of basic 
reserve and beyond basic reserve containers available 
for each POD. 

3. The mean and standard deviation of the time (in days) that 
it takes the vessel to make one circuit of port calls. 

4. The initial arrival/departure date (serial day) at the 
POE (stuffing station) , 
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The above, along with other minor inputs generates the Vessel Schedule 
File, and an unsorted listing of this file if desired. 

After the above program runs have been completed, all that remains 
is to punch the Transaction Report Unit File and the Run Parameters /Label 
Card; their formats are listed in Appendix B. The Transaction Report 
Unit File, as previously described, designates the logical unit where 
transaction reports (if any) are to be written. The Run Parameters and 
Label Card specifies such things as simulation duration, delay factors, 
an identifier code, etc. 

The data preparation programs may appear to be overly segmented and 
drawn out, but this was done purposely to deal with the following problems. 
Firstly, many of the data preparation tasks required substantial computer 
execution time because of the large amount of data; therefore, some of the 
tasks were segmented in order to bring the amount of time required by any 
one program within reasonable ranges. Secondly, there are a number of 
points where data must be examined before the next task can begin. Thirdly, 
the presence of alias consignee mnemonics and the necessity of serializing 
them required additional programming effort. Fourthly, the use of the 
fairly efficient SORT/MERGE utility routine, residing on the IBM 360/67, 
required program separation. Hopefully, the resulting programs and files 
illustrate step-by-step data preparation procedures. 
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Chapter V 

DATA PREPARATION PROGRAMMING PROCEDURES 



This chapter discusses some of the technical programming aspects of 
the data preparation programs. For the most part, it addresses certain 
peculiar aspects of the programming, discusses some of the specific 
assumptions, and describes the use of data files and the SORT/MERGE 
utility program. 



Role of the Mnemonics 



Consignee, POD, breakbulk point, and container type mnemonics are 
convenient methods of identifying input data for the user. Unfortunately, 
a large scale simulation model cannot efficiently decipher these mnemonic 
codes. Therefore, each mnemonic is assigned a serial number beforehand, 
and these numbers, instead of the mnemonic codes, are used by the simula- 
tion program. In terms of simulation program requirements, it is best to 
minimize the range of the serial numbers. Therefore, inactive PODs, 
consignees, and breakbulk points are not assigned serial numbers in the 
data preparation programs. 

Several things arise when dealing with mnemonics in the FORTRAN 
Language, and they are discussed here. Firstly, it must be remembered 
that the input routines automatically blank fill any unused space in a 
word when the ’A* format specification is used, and the binary representa- 
tion of a blank is not zero. Secondly, it must be remembered that the 
upper bit is a one for any alphanumeric information in a FORTRAN variable 
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on the IBM-360 because of the nature of the EBCDIC coding system; however, 
it is a zero for many special characters including the blank. This means, 
among other things, that the value of a blank will be greater than any 
alphanumeric character in a FORTRAN comparison, when it would actually be 
less in a purely binary comparison. This must be adjusted for in the 
Consignee Match Program and the Shipment Serialization And Listing Program 
because the files which they read are sorted by a utility program that 
sorts purely on a binary basis; if some illegal non-alphanumeric characters 
should be in these files, the FORTRAN comparison will be stalled. This 
problem is eliminated by changing the illegal character to a value which 
has a one as an upper bit. (These two above mentioned programs basically 
operate in a merging fashion by throwing out a consignee when there is not 
a match between the two sorted input files.) 

A convention incorporated in the data preparation programs is to 
convert an alphabetic 0 to a numerical zero for the last five positions 
of the consignee mnemonic code. This feature is necessary to insure the 
correct identifications of all consignees. 

File Structures 



The numerous files used in the data preparation programs are designated 
as being either a card, disk, data cell, temporary, or tape file. A 
temporary file typically arises as a program output that is immediately 
sorted and permanently stored elsewhere during a single job run. The 
selection between disk and data cell permanent storage was primarily 
dictated by frequency of use. Seldomly accessed files were placed on the 



data cell; frequently accessed files were placed on disk. Also, there 
were considerations regarding the fact that accessing two different cells 
of a data cell simultaneously is extremely inefficient because of the 
physical nature of the device, and hence was avoided. To a much lesser 
extent, the same holds true for disk storage. 

In any event, each disk, data cell, or tape file must be defined in 
the Job Control Language (JCL) in order to execute the programs. Operating 
examples of JCL file specifications are listed in Appendix B for the data 
preparation programs, and Appendix E for the simulation program. In certain 
instances, a file is overwritten by a succeeding file in order to minimize 
space requirements, and, of course, the old file is lost. 

Finally, for many of the intermediate files the fields are written and 
read in binary using two byte integer words and the ’A2’ format specifica- 
tion. As mentioned in previous chapters, care must be taken when reading 
and writing such fields to use the proper word lengths and format 
specifications . 



Parameter Setup Program 

Several aspects of this program need to be discussed here. Firstly, 
as presently programmed, two groups of containers are designated. Any 
container type with a volume greater than 2000 cubic feet is automatically 
classified in group 1; the smaller ones are placed in group 2. This in- 
formation is automatically punched in the Ordered Parameter File used as 
input to the simulation model. 

Secondly, default values are automatically entered in the Ordered 
Parameter File when data cards are not placed in the last three input card 
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files of the program Cheader and last cards must still be present) • The 
default values are listed in the file format specifications of Appendix B. 

Thirdly, certain parameter inputs to this program are relative values 
used to calculate the absolute levels used by the simulation. For example, 
the breakeven proportion is entered as a proportion; the program takes the 
volume of the container, and calculates the breakeven volume (BP) for 
simulation input. The same holds true for the Stowage Loss Factor. 

Miscellaneous Comments 



The utility SORT/MERGE Routine is used because of its efficiency. It 
is a single job step, and requires several files for work areas. The cards 
which control this routine are listed in Appendix B with the programs they 
preceded or followed in the same job. 

In certain actual instances, a consignee may be served by two or more 
PODs and /or breakbulk points; however, the POD, Consignee and Breakbulk 
Point File does not allow for this. Also, the data preparation programs 
distinguish breakbulk points by POD. For example, if a particular break- 
bulk point is designated in the card file to serve consignees with different 
POD designators, then the breakbulk point is nevertheless assumed to be 
different for each port, and each is assigned a different serial number. 

The Preliminary Selection Program is executed in two phases. The first 
phase takes the data from the WAMTMTS tapes, and after this is successfully 
completed, the second phase adds this data to permanent storage. The reason 
for this is to protect the permanent file should the first phase faulter. 
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Chapter VI 

OUTPUT DATA ANALYSES AND PRELIMINARY APPLICATIONS 



This chapter discusses several ways in which the simulation output 
data can be analyzed, describes the computer programs used for these 
analyses, and briefly describes preliminary applications of the simulation 
model. In general, analyses related to the aggregate operational charac- 
teristics of cargo going to a particular POD can be performed by using 
the POD Operations Summary Cards punched by the simulation. On the other 
hand, analyses related to specific consignees or containers must use the 
Transaction Reports. The following sections briefly describe some of 
the analysis methods used in the past. 

POD Performance Trade Off Analysis 



This analysis measures the potential trade offs among three cargo 
performance variables for each POD. The three variables are cargo age, 
container volume utilization, and single consignee proportion. The 
analyses is accomplished by executing a set of simulations where the 
stuffing policy is varied in different ways for each run. Typically, 
the Breakeven Point Adjustment Factors (XADJ) are set at three different 
levels of (.6), (1.0), and (1.4). The percent of consignees forced to 
receive cargo in single consignee vans is varied in four different ways; 
these four sets of stuffing lists are produced by the Stuffing List 
Generation Program. In all, this produces twelve different runs. 
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The POD Operations Sunmiary Cards for these twelve runs are then 
processed by the POD Operations Summary Selection Program, which 
produces cards for an equation fitting regression program. The formats 
of these files, and the program are listed in Appendix D. The regression 
programs used were statistical utility packages. 

For the most part, linear equations approximate relationships (among 
the variables discussed above) fairly well within operational regions. 

An example of these relationships are depicted in Figure 7 for an oriental 
POD. The vertical axis is the cargo delay at the stuffing station(t) , the 
horizontal axis is container volume utilization(U) , and the values of the 
single consignee proportion(V) are listed by each data point. The lines 
in this figure are the calculated regression equations; in most cases the 
multiple correlation coefficients for such equations were above (.95). 

This trade off analysis identifies the sensitivity of operational 
performance variables to each other, and the results that would occur 
when attempting to force a variable to an extreme. Also, it highlights 
the fact that of these three operational performance variables, only two 
are independent; that is to say, a specification of any two will neces- 
sarily fix the value of the third. 

Consignee Analysis 

The preceding analysis focused on aggregate POD cargo performance; 
here the focus is on consignee cargo performance. In order to undertake 
such an analysis, it is necessary to have the simulation report shipment 
stuffing transactions; these records would typically be written on a 
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Figure 7,- Operations Variables and Fitted Equation 
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tape in order to accommodate the large number of records; the tape file 
would then be read by another program for summarization purposes. The 
Consignee Data Summary Program listed in Appendix D does this for 
selected consignee data; it summarizes data from the shipment segment 
stuff transaction report (//2) , and punches the Consignee Operations 
Summary File. The format of the Consignee Operations Summary File is 
listed in Appendix D; among other things, this file identifies each 
consignee, the amount of cargo it received, its average age at stuff, 
single consignee volumes, and the total volume of cargo the breakbulk 
point that serves the consignee received. These data can be used to 
measure the general factors which influence cargo aging, single consignee 
performance, and container volume utilization for consignees. 

Another useful analysis is to examine the distribution of consignee 
shipment ages at the stuffing station, and how these distributions are 
affected by different stuffing policies. The Consignee Cargo Age 
Histogram Program, listed in Appendix D, can be used to display a ship- 
ment age histogram for a consignee or groups of consignees. It currently 
uses the abbreviated shipment stuff transaction report (#12) to do this. 
Figure 8 is an example output of the program. 

Past Applications 

The simulation program has already been used in a number of ways to 
provide managerial information. Four of these are discussed here. 

The affects of emphasizing certain performance variables, at the 
detriment of others, have been examined by looking at POD performance 
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trade offs. Using the data in Figure 7, for example, indicates for the 
particular POD that a one percent average increase in container volume 
utilization(u) would result in a (.5161) day increase in average cargo 
stuffing age(t) if the single consignee proportion (v) were held constant. 
Similarly, a one percent increase in the single consignee proportion (v) 
would result in a (.4721) day increase in age(t) if the container volume 
utilization(u) were held constant. Such data informs overseas customers 
of the consequences which must be accepted when specific performance 
standards are requested. 

The impact of having other facilities stuff a portion of the cargo, 
which was normally handled through the container stuffing station, was 
also examined. This was accomplished by comparing results with and 
without the designated cargo being included in simulation runs. This 
provided a basis for forecasting performance impacts that would result 
if such cargo were eliminated . 

The affects of container size on cargo stuffing performance variables 
were measured in light of the proposals by certain ocean carriers to 
curtail small van service to certain PODs. Container sizes influence the 
flexibility of procedure used to load cargo into containers, which in 
turn, impinge on the performance of the cargo transportation system. A 
conceptual model of the problem was first formulated to provide a 
framework, and then the simulation model was used to identify how 
performance variables were affected by container size. It was found 
that a sustained trend toward larger containers by commercial ocean 
carriers would result in a substantial lowering of transportation 
service standards and/or an increase in transportation costs. 
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Container stuffing policies were examined as they normatively affect 
service and the cost of transporting cargo overseas. The simulation 
model was used to determine which policies produced the best service at 
the lowest cost. The results indicated that there should be no special 
emphasis on the loading of single consignee vans unless there are extra- 
ordinary high costs associated with the handling of cargo in mixed 
consignee cargo vans at overseas ports. 

Potential Applications 

SIMCON has the potential to aid in approaching and dealing with a 
number of both planning and operational problems. Several are discussed 
here. 

The evaluation of the performance of stuffing operations could 
conceivably be accomplished by comparing actual stuffing results with 
the normative results of the model. The ratio of model measures to 
actual measures could be used to track improvements or declines in 
stuffing performance as vessel schedules and cargo inputs change. Also, 
variations of this concept could be used to ”incentivize" contracts let 
to civilian concerns for stuffing military cargo. 

The simulation model, or a variation thereof, could be used to more 
accurately forecast the need for bookings. Forecasting container require- 
ments is complicated by the fact that aggregate on-hand and arriving 
cargo volumes may not accurately reflect the need for containers because 
of cargo configuration and mixing factors. A simulation model could take 



these factors into account. 
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Besides the applications which would result in immediate payoffs, 
there are also those applications which would produce benefits in the 
longer run. For example, SIMCON could be used to evaluate system wide 
transportation trade offs by addressing questions such as whether or not 
improved services and/or reduced costs could be achieved by consolidating 
stuffing stations so as to create greater volumes at these stations. 

In this case, increases in overland transportation and handling costs 
could possibly be offset by lower ocean transportation and stuffing costs 
resulting from higher utilization and single consignee vans. 

Also, there are long run benefits that would accrue to the simulated 
assessment of the impacts of changes in vessel service, container avail- 
ability, cargo volume decline, stuffing delays, errors in cargo forecasting, 
errors in container booking, and cargo stuffing restrictions. Measurements 
of these impacts will provide a better understanding of operational trade 
offs, and provide additional information for management decision making. 
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GLCSSARY CF KEY TERMS 



THE TERMS LISTED HERE WERE DEVELOPED TO PROVIDE A TERMINOLOGY 
WHICH FACILITATES THE EXPLANATION AND DISCUSSION OF THE SIMULATION 
MODEL. THESE TERMS SHOULD NOT BE INTERPRETED AS STANDARD 
DEFINITIONS USED IN ALL OPERATING SYSTEMS. 



BREAKEVEN POINT: IT REPRESENTS THE AMOUNT OF CARGO WHICH MUST 

BE LOADED INTO A CONTAINER SO AS TO MAKE THE COST OF SHIPPING 
THE CARGO IN THE CONTAINER LOWER THAN THE COST OF SHIPPING THE 
CARGO BY NON-CCNTAINERIZED MEANS. TYPICALLY, THE BREAKEVEN 
POINT IS EXPRESSED IN TERMS OF A PERCENTAGE OF A CONTAINERS 
MAXIMUM CARGO VOLUME CAPACITY; AND IS COMPUTED THROUGH COST 
ANALYSES INCLUDING TRANSPORTATION AND HANDLING COSTS. 



CARGO AGF; THIS TERM IS USED TO REFLECT HOW LONG IT TAKES 
CARGO TO bE TRANSPORTED FROM CONSIGNOR TO CONSIGNEE. FOR 
EXAMPLE, IT WOULD INCLUDE SUCH THINGS AS THE TIME A SHIPMENT 
WAITS AT A CONSIGNORS SITE TO BE PICKED UP, IN-TRANSIT TIME, 
THE TIME AT A CONSCL I DATI ON TERMINAL BEFORE STUFFING, THE TIME 
IN A CONTAINER BEFORE THE CONTAINER IS LOADED ABOARD A SHIP, 
SAILING TIME, ETC. CARGO AGE AVERAGES CAN BE CALCULATED FROM 
SEVERAL DIFFERENT STANDPOINTS; IT CAN BE WEIGHTED ACCORDING TO 
VOLUME, WEIGHT, OR SHIPPING UNITS AMONG OTHER THINGS. IN ANY 
EVENT, THE TIME SPAN INVOLVED AND THE METHOD OF WEIGHTING MUST 
BE SPECIFIED TO CLEARLY INDICATE THE MEANING OF AVERAGE AGE. 
GENERALLY SPEAKING, THE PRINCIPAL METHOD FOR CALCULATING 
AVERAGE AGE USES SHIPPING UNITS AS WEIGHTS. ALSO FOR THIS 
REPORT, CARGO AGE, UNLESS OTHERWISE SPECIFIED, REFERS TO THE 
TIME A SHIPMENT WAITS IN THE STATION BEFORE BEING STUFFED. 



CARRIER YARD ; THE STAGING AREA WHICH THE COMMERCIAL CONTAINER 
CARRIER USES FOR LOADING (LIFTING) CONTAINERS ABOARD 
CCNTAINERSHIPS. 



CFS/CFD; AN ABBREVIATION FOR THE CONTAINER FREIGHT 
STATICN/DIVISION OF A MILITARY OCEAN TERMINAL. 



CONSIGNEE: THE ENTITY TO WHICH A CARGO SHIPMENT IS DESTINED. 



mm 

IN WHICH 
MNEMONICS. 



i ThER E M 

CASE THE ALTERNATI 



A SIX 
MAY BE MO 



CHARACTER CODE USED TO 
RE THAN ONE CODE FOR A 
VE CODES ARE CALLED AL I 



IDENTIFY A 
CONSIGNEE , 

AS CONSIGNEE 



CONSIGNOR; THE ENTITY WHICH INTRODUCES A CARGO SHIPMENT INTO 
THE TRANSPORTATION SYSTEM. 



EXPORT CARGO; CARGO WHICH ORIGINATES IN THE CONTINENTAL 
UNITED STATES (CONUS) AND IS DESTINED TO OVERSEAS CONSIGNEES. 



GENERAL EXPORT CARGO; THIS IS EXPORT CARGO WHICH FALLS IN 
MILSTAMP WATER COMMODITY CODE SERIES 360-399 AND 500-799. 
GENERALLY SPEAKING, THIS DOES NOT INCLUDE SPECIAL CARGO SUCH 
AS CHILL CARGO, FREEZE CARGO, BULK CARGO, VEHICLES, 
AMMUNITION, EXPLOSIVES, RADIOACTIVE WASTE, OR ASSEMBLED 
AIRCRAFT. 
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LOAD REQUIREM ENT: 

IT REPRESENTS 



UNDER A SPECIFIC STUFFING 

THE MINIMUM AMOUNT OF CARGO 
THAT MUST BE AVAILABLE FOR LOADING INTO A CONTAINER BEFORE THE 
PROCEDURE HILL CONSIDER STUFFING THE CONTAINER. 



MIN IMUM 

PCLICY/PROCEDUREt 



M IXED C O NSIGNEE VAN ; A CONTAINER (VAN) STUFFED WITH THE CARGO 
OF SEVERAL CONSIGNEES. 



MCTBA: AN ABBREVIATION FOR THE MILITARY OCEAN TERMINAL, BAY 

AFfA (OAKLAND, CALIFORNIA). 



MTMC: AN ABBREVIATION FOR THE MILITARY TRAFFIC MANAGEMENT 

COMMAND, FORMERLY KNOWN AS THE MILITARY TRAFFIC MANAGEMENT AND 
TERMINAL SERVICE (MTMTS). 



nr.F AN CONTAINER; A CONTAINER, OR VAN, WHICH IS ESPECIALLY 
DESIGNED TO BE CARRIED ABOARD OCEAN GOING VESSELS. TYPICALLY, 
THE VESSELS ARE ESPECIALLY DESIGNED TO CARRY CONTAINERS. 

COMMON VAN SIZES ARE: 8 BY 8 BY 20 FEET; 8 BY 8 BY 24 FEET; 8 
BY 8 EY 27 FEET; 8 BY 8 BY 35 FEET; AND 8 BY 8 BY 40 FEET. 
THESE VANS MAY BE COVERED OR UNCOVERED; DESIGNED TO CARRY BULK 
CARGO; AND REFRIGERATED OR UNREFRIGERATED. THE MOST COMMON 
CONTAINER IS THE GENERAL CARGO CONTAINER. 



PARTI AI SHIPMENT ; THIS TERM IS USED IN A SITUATION WHERE A 
SHIPPING UNIT IS RECLASSIFIED IN TO SEVERAL SHIPPING UNITS 
BECAUSE OF THE WAY IN WHICH THE SHIPMENT IS TENDERED TO THE 
TRANSPORT SYSTEM. FOR EXAMPLE, THIS WOULD OCCUR WHEN A VENDOR 
RESPONDS TO A SINGLE REQUISITION BY TENDERING THE CARGO AT 
SEVERAL DIFFERENT LOCATIONS AND/OR AT DIFFERENT TIMES; FOR 
PURPOSES HERE, EACH PARCEL WOULD BE CONSIDERED A SHIPPING 
UNIT, AND WOULD BE REFERRED TO AS A PARTIAL SHIPMENT. 



POD MNEMONIC; A THREE CHARACTER CODE USED TO IDENTIFY PORTS 
OF DEBARKATION (PCD). 



RETROGRADE CARGO; CARGO WHICH ORIGINATES AT OVERSEAS POINTS 
AND IS DESTINED TO POINTS IN CONUS. 



S INGLE CONSIGNEE VAN : A VAN STUFFED WITH THE CARGO CF ONE AND 

ONLY ONE CONSIGNEE. 



SHIPME N T .S R L 






MjILL this term refers to the SITUATION WHERE A 
BROKEN DOWN IN TO SEPARATE PARTS BECAUSE OF 
SYSTEM. FOR EXAMPLE, AN ENTIRE SHIPPING 
T INTO A SINGLE VAN, SO IT WOULD BE SPLIT IN TO 
IN SUCH A CASE THE VARIOUS PORTIONS Of THE 
TO AS SHIPMENT SEGMENTS, AND THE 



SHIPPING UN 
THE TRANSPORTATION 
UNIT MAY NOT F 
SEVERAL PARTS. 

SHIPMENT ARE REFERRED 

SHIPPING UNIT WHICH CONSISTS OF THESE VARIOUS SEGMENTS WOULD 
BE REFERED TO AS A SPLIT SHIPMENT. NOTE THAT SPLIT SHIPMENTS 
ARE NOT NECESSARILY RELATED TO PARTIAL SHIPMENTS; THE FORMER 
REFERS TO THE CASE WHERE SHIPMENTS ARE BROKEN DOWN BECAUSE OF 
PECULIARITIES DUE TO THE TRANSPORT SYSTEM, WHEREAS THE LATTER 
REFERS TO SITUATIONS WHERE THE SHIPMENT 1$ BROKEN DOWN BECAUSE 
OF THE WAY IN WHICH IT WAS TENDERED TO THE TRANSPORT SYSTEM. 
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■<;hipp tng unit; this term defines a cargo input to a 

TRANSPORTATION SYSTEM. A SHIPPING UNIT IS A CARGO SHIPMENT 
WHICH IS INTRODUCED TG THE SYSTEM AT A PARTICULAR TIME. THE 
CARGO MAY SUBSEQUENTLY BE BROKEN DOWN IN TO SEVERAL SEGMENTS, 
AND MAY POSSIBLY MOVE TO THE DESTINATION VIA DIFFEREONT 
ROUTES. THIS TERM IS USED WITH CARGO AGE MEASUREMENTS. (ALSO 
SEE THE TERMS CARGO AGE, SPLIT SHIPMENTS, AND PARTIAL 
SHIPMENTS.) 



STUFFING: THE LOADING OF CARGO INTO CONTAINERS. 



STUFFING LIST; A LIST OF CONSIGNEE! S) WHOSE CARGO MAY BE 
MIXED IN THE SAME VAN. THAT IS TO SAY, THE CARGO GOING TO THE 
CONSIGNEES LISTED ON A STUFFING LIST CAN BE MIXED IN THE SAME 
VAN. THE CONTENTS AND THE ARRANGEMENT OF A SEQUENCE OF 
STUFFING LISTS DICTATE HOW CARGO WILL BE OPERATIONALLY STUFFED 
INTO VANS FOR A GIVEN STUFFING POLICY. ONE AND ONLY ONE 
STUFFING LIST IS USED TO STUFF A CONTAINER. 



STUFFING LIST NUMBER; THE NUMBER IDENTIFYING A STUFFING 
LIST. AMONG OTHER THINGS, THIS STUFFING LIST NUMBER IS USED 
TO IDENTIFY THE LOCATION OF THE BREAKEVEN POINT ADJUSTMENT 
FACTOR WHICH IS USED TO COMPUTE THE MINIMUM LOAD REQUIREMENT 
FROM THE BREAKEVEN POINT. 



UNS TUFFING; THE UNLOADING OF CARGO OUT OF CONTAINERS. 



VFS SFL SFCTIQN RECORD ; DATA CONCERNING THE STATUS OF 
CONTAINER BOOKINGS ON A PORTION OF AN ARRIVING VESSEL. THIS 
SEGMENTATION IS NECESSARY BECAUSE A VESSEL MAY CARRY SEVERAL 
DIFFERENT SIZE CONTAINERS, AND MAY CALL ON SEVERAL DIFFERENT 
PODS. 



WAMTilC; AN ABBREVIATION FOR THE WESTERN AREA MILITARY TRAFFIC 
MANAGEMENT COMMAND, FORMERLY KNOWN AS THE WESTERN AREA 
MILITARY TRAFFIC MANAGEMENT AND TERMINAL SERVICE (WAMTMTS). 



APPENDIX B 



Data Preparation Files and Programs 
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Format for POD Names and Mnemonics File 



Header Card: PORT NAMES AND MNEMONICS FILE (Card Columns 1-29) 

Place alphanumeric identifier code in columns 73-80. 



Data Cards: Card Columns 



Contents 



1-48 

51-54 



Name of port (optional) 

Port mnemonic (alphanumeric, left 
justified) 



(Use one card for each port) 



Last Card: ‘k'kii'k first four columns) 



Note: This file is automatically generated by the Serialization Program 

as card output. 
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Header Card: 



Data Cards: 



Format for Container Description File 



CONTAINER DESCRIPTION FILE (Card Columns 1-26) 

Place alphanumeric identifier code in columns 73-80. 



Card Columns 
1-4 
5-8 
25-28 

31-38 

41-48 



Contents 

Steamship Line mnemonic (optional) 

Container Length/size (optional) 

Container type mnemonic, (alphanumeric, 
left justified) 

Maximum cargo volume 
(MC, cubic feet) (I) 

Maximum cargo weight 
(MW, pounds) (I) 



Last Card: 



iiik-kii (in first four columns) 
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Format for Container Breakeven^ Utilization > and Booking 
Parameters/Statistics File 

Header Card: CONTAINER BREAKEVEN, UTILIZATION, AND BOOKING 

PARM/STAT FILE (Card Columns 1-60) 

Place alphanumeric identifier code in columns 73-80. 



Data Cards: Card Columns 


Contents 


1-4 


Container type mnemonic 


5-8 


POD mnemonic (I) 


9-12 


Breakeven Proportion. This value 
is multiplied by the container 
volume to produce BP, (default=.5) (F) 


13-16 


Initial estimated cube utilization 
percentage, (CFUT, default=.8) (F) 


17-20 


Exponential smoothing average 
parameter for the above percentage, 
(CUESP, default=.5) (F) 


21-24 


Stowage Loss Factor. This value is 
multiplied by the container volume 
to produce SAF, (default=.l) (F) 


25-28 


Maximum probability for successful 
booking of containers beyond the 
basic reserve. (XCMXLB ,default=1.0) (F) 



Last Card: 



iciciiik (in first four columns) 
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Format for Container Forecast Statistics/Parameters File 

Header Card: CONTAINER FORECAST STATISTICS /PARAMETERS FILE 

(Card Columns 1-45) 

Place alphanumeric identifier code in columns 73-80. 
Data Cards: (One card for each POD) 



Card Columns 


Contents 


1-4 


POD mnemonic 


5-14 


Initial forecast for container izable 
shipment arrivals (cubic feet) 
during forecast period destined for 
above POD, (CFCUB , default=0) (F) 


15-18 


Exponential smoothing average 
parameter for above forecast, 

(CFESP, default=.5) (F) 


19-22 


Adjustment factor for the forecast 
of containerizable shipments, 

(CFAF, default=1.0) (F) 



Last Card: 



'kii'kii (in first four columns) 
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Format for Container Booicing Horizon and Success 

Rate File 

Header Card: CONTAINER BOOKING HORIZON AND SUCCESS RATE FILE 

(Card Columns 1*47) 

Place alphanumeric identifier code in columns 73-80. 



Data Cards: Card Columns 


Contents 


1-4 


POD mnemonic 


11-14 


Minimum number of days in advance of 
vessel arrival for which bookings 
can be made for beyond reserve 
containers, (CSTRT, default=2) (I) 


15-18 


Range for the above booking distri- 
bution, (CRNG, defaulted) (F) 


19-22 


Flag indicator for type of distribu- 
tion to be used for determining the 
proportion of the containers beyond 
the basic reserve that can be 
currently booked. This parameter 
comes into play only after the random 
screening algorithm has determined 
that a booking can take place. A 
value of zero allows all space 
available to be booked if asked for; 
a value of one releases space 
according to a random uniform 
distribution of space available. 
(CDSTYP, default=0) (1) 


23-26 


Reserved container release time. The 
unbooked basic reserve space is 
released back to the carrier this 
many days before the vessel *s arrival 
at the POE. That means that bookings 
of reserved space can no longer be 
made after that time. 

(CRELT, default=0) (I) 



Last Card: **** (xji columns 1-4) 
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Header Card: 
Data Cards; 



Last Card: 



Format for Transaction Report Unit File 



TRANSACTION REPORT UNIT FILE (Card Columns 1-28) 



Card Columns Contents 

5-6 Report Identification Number (right 

justified) 

8-9 Logical unit device on which the 

above report is to be written. 



(Use one card for each desired transaction report; if 
none are desired, then this file will consist of only 
the header and last card.) 



(in first four columns) 
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Format for the Container Vessel Schedule Parameters File 



Header Card: 

Card Columns Contents 

1-41 CONTAINER VESSEL SCHEDULE PARAMETERS FILE 



51-55 Starting Time, (usually 0) (I) 

56-63 Random number generator seed (any 

positive integer) (I) 

64 Schedule printing option: 0 for no, 

1 for yes (I) 

65-67 Number of days to be generated (I) 



Data Cards : 

a) Vessel Card 



Columns 

1-4 

7-18 

49-52 

53-56 

57-60 



Contents 

Steamship Line (optional) (A) 

Vessel Name (optional) (A) 

Initial Date of Sail from POE 
(serial day) (I) 

Mean circuit time (F) 



Standard Deviation of Circuit Times (F) 



b) POD and Container Type information for the above vessel. 



Columns 


Contents 




1-4 


POD mnemonic (left justified) 


(A) 


5-8 


Container type mnemonic (left 
justified) 


(A) 


9-11 


Number of containers in the basic 
reserve for above POD. 


(I) 
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12-14 Number of beyond basic reserve 

containers for above POD. (1) 

Repeat the above sequence up to and including column 70, 
then continue on a new card. When the vessel data are 
complete, place four dollar signs ($$$$) in the next 
POD mnemonic field. 



c) Repeat parts (a) and (b) until all vessels are described. 

d) End of File Card. (**** in first four columns) 
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Format for the POD, Consignee^ Breakbulk Point Card File 
Header Card: POD, CONSIGNEE, BREAKBULK POINT FILE (Columns 1-36) 



Data Cards: Card Columns 


Contents 


1-6 


Current consignee mnemonic (left 
justified) 


9-14 


Old or alias consignee mnemonic 
(left justified). (If no alias, 
leave blank) 


17-22 


Breakbulk point consignee mnemonic 
(left justified) 

(a blank here is interpreted to mean 
that the consignee itself is the 
breakbulk point) 


25-29 


SOP-6-4 codes (optional) 


31-33 


POD mnemonic (left justified) 



At least one card is required for each consignee; a 
consignee will require more than one card if it has 
more than one alias. 



Last Card: 



(in columns 1-4) 
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FORMAT OF THE RUN PARAMETER AND LABEL CARD 



Card Columns 


Contents 


1-3 


Number of PODs. (I) 


4-7 


Number of Consignees. (I) 


8-9 


Number of Container Types, (I) 


10-11 


Number of Container Groups. (I) 



(The information, for the above four fields is printed on the 
last line of the printout from the Parameter Setup Program) 



12-19 


Random number generator seed for the 
Booking routine (any positive integer) 


20-24 


Time duration (in days) of the simulation. 


25 


Container Lift Report print option. Leave 
blank if desired; 1 if not. 


26-27 


Desired CDELCT value (typically 1) 


28-29 


Desired CDELTS value (typically 1) 


30-31 


Desired CDELTC value (typically 1) 


32-33 


Desired MXADVS value (typically 0) 


34 


Punched POD Operations Summary Option. 
Leave blank if not desired; 1 if desired. 


73-80 


Any alphanumeric code to distinguish the 
run. 
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RECORD FORMAT OF WAMTMTS ACTIVITY TAPE FILES 



Only those fields used in data selection are listed here. The record 
selection logic is explicitly outlined here in that required codes in 
fields are identified; records without these values are skipped. 



Field 


Number of 








Number 


Positions 


Code 


Type 


Contents 


1 


2 


(not 


used) 




2 


1 


BCD 


Must 


be a *1’ . (DOCID) 


3 


1 


BCD 


Must 


be a ’1’ or a ’7^ (AFST) 


4 


13 


(not 


used) 




5 


3 


BCD 


N 


Water commodity code. (COMM) 


6 


1 


BCD 


A 


Special Handling Code. (SCGOX) 


7 


1 


(not 


used) 




8 


3 


BCD 


Must 


be *3DK\ 


9 


3 


BCD 


A/N 


POD mnemonic. (POD) 


10 


21 


(not 


used) 




11 


6 


BCD 


A/N 


Consignee mnemonic. (CNSE) 


12 


26 


(not 


used) 




13 


4 


BCD 


A/N 


Transportation Account. (TACCTC) 


14 


5 


(not 


used) 




15 


5 


BCD 


N 


Number of Pieces. (PIECES) 


16 


3 


(not 


used) 




17 


7 


BCD 


N 


Weight, pounds. (WEIGHT) 


18 


4 


(not 


used) 




19 


6 


BCD 


N 


Volume, cubic feet. (CUBE) 


20 


4 


BCD 


N 


Date of arrival; must be within 
desired range. (last digit of 
year, Julian day) (DTECGR) 
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21 


31 


(not 


used) 




22 


1 


BCD 


Must 


be ’8'. 


23 


1 


BCD 


Must 


not equal ' 5 
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FORMAT OF PRELIMINARY SHIPMENT RECORDS 



Field 

Number 


Number of 
Bytes 


Code 


Type 


1 


3 


EBCDIC 


A/N 


2 


6 


EBCDIC 


A/N 


3 


1 


EBCDID 


A 


4 


4 


binary 


I 


5 


4 


binary 


I 


6 


2 


binary 


I 


7 


2 


binary 


I 


8 


3 


EBCDIC 


A/N 


9 


4 


EBCDIC 


A/N 


10 


1 


blank 




NOTE: 


The backup tape 


file has the 


same 



Contents 

POD 

Consignee 

exception handling code 

cube 

weight 

pieces 

receipt date serial 
commodity code (COMM) 
transportation account code(TACCTC) 

format. 



RECORD FORMAT OF SHIPMENT FILES I & II 



( Output Format of POD Shipment Selection Program ) 



Field 

Number 


Number of 
Bytes 


Code 




Contents 


1 


6 


EBCDIC 


A/N 


Consignee 


2 


1 


EBCDIC 


A 


type of shipment 


3 


4 


binary 


I 


cube 


4 


4 


binary 


I 


weight 


5 


2 


binary 


I 


pieces 


6 


2 


binary 


I 


receipt date 
serial 



NOTE: File II has records arranged in alphabetical order by consignee. 
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RECORD FORMAT OF SHIPMENT FILE III 



Field 

Number 

1 

2 

3 

4 

5 

6 



Number of 
Bytes 

2 

2 

2 

4 

4 

2 



Code 


Il£e 


Contents 


binary 


I 


serial receipt date 


binary 


I 


POD (sequence number) 


b inary 


I 


Shipment Classification 


binary 


I 


weight (pounds) 


binary 


I 


volume (cubic feet) 


binary 


I 


consignee (sequence number) 


binary 


I 


pieces 



7 



2 
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Field 

Number 


Number of 
Bytes 


Code 


1 


2 


binary 


2 


2 


binary 


3 


2 


binary 


4 


2 


binary 


5 


2 


binary 


6 


2 


binary 


7 


2 


binary 



Contents 

serial receipt date 
POD (sequence number) 
Shipment Classification 
Weight (pounds) 

I Volume (cubic feet) 

I Consignee (sequence number) 

I Shipment serial number 



RECORD FORMAT OF S HIPM ENT FILE IV 

I 
I 
I 
I 



NOTE: This file is sorted in order of arrival date (field 1) • 



97 



RECORD FORMAT OF CONDENSED PQD> CONSIGNEE 
AND BREAKBULK POINT FILE 



Field 


Number of 




Number 


Bytes 


Code 


1 


3 


ECBDIC 


2 


6 


ECBDIC 


3 


6 


ECBCDIC 


4 


6 


ECBCDIC 



IZ£e 


Contents 


A/N 


POD mnemonic 


A/N 


Basic Consignee Mnemonic 


A/N 


Basic/Alias Consignee 
Mnemonic 


A/N 


Breakbulk Point Mnemonic 



NOTE: 1. This file is in POD-Consignee alphabetic order. 

2. This file will contain records only for those consignees which 
have shipments in Shipment File II. (Active Consignees). 

3. If an active consignee has no alias, then this file will contain 
one record for that consignee with field 3 containing the basic 
consignee mnemonic. If an active consignee has one active alias, 
then this file will contain two records; one record having the 
basic consignee mnemonic in field 3, and the other having the 
alias mnemonic. An active consignee with two alias names, will 
have three records, etc. 
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RECORD FORMAT OF SERIALIZED CONSIGNEE FILE 



Field 

Number 


Number of 
Bytes 


Code 


Type 


Contents 


1 


6 


EBCDIC 


A/N 


Basic /Alias Consignee 
Mnemonic 


2 


2 


binary 


I 


Consignee Serial Number 


3 


2 


binary 


I 


POD Serial Number 


4 


2 


binary 


I 


BBP Serial Number 


NOTE : This 


file is in 


alphabetical 


order by 


consignee mnemonic. 
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RECORD 


FORMAT OF THE 


CONDENSED 


SERIAL FILE 


Field 

Number 


Number of 
Bytes 


Code 


Type 


Contents 


1 


3 


EBCDIC 


A/N 


POD Mnemonic 


2 


6 


EBCDIC 


A/N 


Consignee Mnemonic 


3 


6 


EBCDIC 


A/N 


Breakbulk Point Mnemonic 


4 


2 


binary 


I 


Consignee serial number 


5 


2 


binary 


I 


POD serial number 


6 


2 


binary 


I 


BBP serial number 


7 


2 


binary 


I 


Percent of POD cube 
times 100, (or propor- 
tion times 10000) 



(If this file is stored on cards, three records are placed on each card, 
with five empty spaces in the last five columns) . 
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RECORD FORMAT OF THE SCREENED POD, CONSIGNEE, AND 
BREAKBULK POINT FILE 



Field 

Number 


Number of 
Bytes 


Code 


1 


3 


EBCDIC 


2 


6 


EBCDIC 


3 


6 


EBCDIC 


4 


6 


EBCDIC 



1 


Contents 


A/N 


POD Mnemonic 


A/N 


Basic Consignee Mnemonic 


A/N 


Basic/Alias Consignee 




Mnemonic 


A/N 


Breakbulk Point Mnemonic 



NOTE: This file is created in the following manner. For each card in 

the POD, Consignee, Breakbulk Point Card File, a record will be 
created as described above, and field number 3 will contain the 
basic consignee mnemonic. Another record will be created for 
that card if the consignee has an alias, in which case field 
number 3 will contain the alias mnemonic. (Note that if a 
consignee has N cards, then N identical records will exist in 
this file with the consignee’s basic mnemonic in both field 2 
and 3; these duplicates will be ignored in later programs.) 
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RECORD FORMAT OF VESSEL SCHEDULE FILE 



Each record contains data regarding a vessel section. This file is 
sorted by field 2 in ascending order, field 1 in ascending order, and 
field 4 in descending order. 



Field 

Number 


Number of 
Bytes 


Code 


1 


2 


binary 


2 


2 


binary 


3 


2 


binary 


4 


2 


binary 


5 


2 


binary 


6 


2 


binary 


7 


2 


binary 



Type Contents 

(I) Voyage number 

(I) Day of arrival at POE 

(I) POD number 

(I) Number of following sec- 

tions (records) pertaining 
to the same vessel voyage 

(I) Container type number 

(I) Number of container 

reserved for container 
stuffing station use 

(I) Number of containers, 

beyond the above reserve, 
which can be booked 
through the random 
screening algorithm of the 
booking routine. 
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PRELIMINARY SELECTION PROGRAM DECK 
(program loaded on to a disk) 



//B0X$101A 

//PURGl 

//SYSPRINT 

//DDl 

//SYSIN 



JOB (0826,0232FP,55HJ) , • J.P. HYNES' 

EXEC PGM=IEHPROGM 
DO SYSOUT=A,SPACE=(TRK,U 
00 UNIT=2314,V0L=SER=l1N0A, OISP=SHR 
DO « 

SCRATCH DSNAME = F0826.PSA, V0L = 2314=LIN0A, PURGE 



/"l^COMPl 



_ EXEC 

//FORT. SYSIN 



C 

C 

c 



FORTCL,COND=EVEN 
DO « 



TAPES 



C 

C 

c 



33 



C 

c 



3333 



PRELIMINARY SELECTION PROGRAM 

AND TRANSFERS SELECTED INFORMATION TO A SUMMARY FILE. 

THIS PROGRAM SELECTS SPECIFIED SHIPMENT RECORDS FROM WAMTMTS 
IMPLICIT INTEGER*4 (A-Z) 

INTEGER*2 DATEt PI ECES , SCGOXI 
DIMENSION FREQ(364) ,L0CTMLI2) 

DATA P0E/3H30K/ 

DATA C1/1H1/,C2/1H2/,C3/1H3/,C5/1H5/,C8/1H8/ 

DO 33 I=l»364 
FREQI I }=0 

SREC=NUMBER OF RECORDS TO BE SKIPPED BEFORE TRANSFER BEGINS. 
NREC=MAXIMUM NUMBER OF RECORDS TO BE SCANNED. . THIS PARAMETER 
WILL TERMINATE EXECUTION. 

SREC=0 

NREC=99999 

DTSTRT= JULIAN DATE START. 

DTEND= JULIAN DATE END. 

DTSTRT=3182 

DTEND= 3304 

NR*0 

NS=0 

NR=NR+1 

IF(NR.GT.NREC) GO TO 4 

READ(31,2,END=4,ERR=5 ) FN, AFST , COMMI , SCGOXI , 

« POEItPODI ,CNSEl,CNSE2f TACI.PIECEI tWGHTI ,CUBI ,OTECGR, 

* LOCTML 

2 F0RMAT(2X»A1,A1,13X,A3,A1,1X, 

« A3.A3.21X, A4,A2,26X,A4,5X,I5,3X,I7,4X,I6, I4,31X,2A1) 

IFINR.lt. SREC) GO TO 3 
IF(FN.NE.Cl) GO TO 3 

IF( (AFST. NE .Cl) .AND. (AFST. NE.C7) ) GO TO 3 
IF(POEI .NE.POE) GO TO 3 
IF(LOCTMLd) .NE.C8) GO TO 3 
IF( (L0CTML(2) .EQ.C5) .OR. (L0CTML(2 ).EQ.C8) ) 

IF( (DTECGR.LT.DTSTRT) .CR.(DTECGR.GT.DTEND)) 



GO TO 3 
GO TO 3 



C 

c 

r ^ :6c :6c :6c afic 96c :6c sic ^ :6c 

C USE THE FOLLOWING STATEMENTS FOR THE DATE CALCULATION 

C IF THE START DATE IS IN 1972 AND THE STOP DATE IS 1973. 

C IF(DTECGR.LE.2999) DATE=DTECGR-DTSTRT+1 

C DATE=0TECGR-3000+4 

c 

C USE THE FOLLOWING STATEMENT FOR THE DATE CALCULATION 

C IF THE START AND STOP JULIAN DATES ARE IN THE SAME YEAR. 

DATE=DTECGR-DTSTRT-H 

c 

C 

PIECES=PIECEI 

NS=NS+1 

FREQI DATE) =FREQ( DATE) +1 

WRITE! 13,11) POD I ,CNS E 1 ,CNSE2 f SCGGXI , CUBI , WGHT I , PI ECES , DATE, 

* COMMI, TACI 

11 F0RMAT(A3,A4,A2,A1,2A4,2A2,A3, A4) 

GO TO 3 
5 WRITE(6,41) 

41 FORMAT! • ERROR EXIT') 

GO TO 3333 

4 WRITE!6,23) NPEC,NR,NS 
23 F0RMAT(‘1PRIMARY SELECTION PROGRAM',/, 

* • MAXIMUM NUMBER OF RECORDS TO BE SCANNED= * , 17 , / , 

* ' ACTUAL RECORDS SCANN ED= ' , 1 7, / , 
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NUMBER OF 

t / 1 * 



32 



A. 



♦ 

* 'DATES' 

ENDFILE 13 
REWIND 13 
REWIND 31 

WRITE(6,32) 

F0RMAT(7(6X, 13,' 
STOP 
END 



SHIPMENTS^' ,17,///, ' FREQUENCIES PER SERIAL ' 
DATE:NUMBER CF SHIPMENTS',//) 



(I,FREQ(I).I=1,364) 
‘ ‘ , 15 ) ) 



//LINK.SYSLMOD DD DSNAME= F0826 . PS A ( B 1 ) , C I SP= ( NEW , KE E P ) , 
// UNIT=2314, VOLUME=SER=LINDA, LABEL=RETPD=90, 

// SPACE=(TRK,(7, ,1) ,RLSE) 

//PURG2 EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOUT= A , SPAC E= ( TRK , 1 ) 

//DDl DD UNIT=2314, VDL=SER=LINDA,DISP=SHR 

//SYSIN DD * 

SCRATCH DSNAME=F0826.PSB,V0L=2314=LIN0A,PURGE 

A 

//C0MP2 EXEC FORTCL,COND=EVEN 
//FORT. SYSIN DD =<« 



C 

C 



A. 



FILE TRANSFER PROGRAM 

THIS PROGRAM TRANSFERS 30 BYTE RECORDS FROM UNIT 9 TO UNIT 13. 
INTEGER*2 DATA 
DIMENSION DATA(15) 

NR=0 

READ(9, 1 ,END=2) DATA 
FORMAT! 15A2) 

NR=NR+1 

WRITE! 13, DDATA 
GO TO 3 
WRITE!6,4) NR 

FORMAT!' NUMBER OF RECORDS TRANSFERED =', 

♦ 16) 

STOP 

END 



//LINK.SYSLMOD DD DSNAM E= FO 826 . PS B! B 2 ) , 0 I SP= ! NE W, KE EP ) 
// UNIT=2314,V0LUME=SER=LINDA, LABEL=RETPD=90, 

// SPACE=!TRK, ! 7, , 1) ,RLSE) 

A 



PRELIMINARY SELECTION PROGRAM DECK 
(program execution) 



//BOXSIOIB JOB !0826,0232FP,55HJ),'J.P. HYNES', TIME=7 
//STEPl EXEC PGM=B1 

//STEPLIB DD DSNAME=F0826.PSA,DISP=SHR, V0L=SER=LINDA,UNIT=2314 
//FT06F001 DD S YSOUT=A , DC B= ! RECFM=FBA , LRECL = 133 , BLKS I ZE=3325 ) 

//FT13F001 DD OSNAME=COUT , UNI T=S YSDA , D I SP= ! NEW , PA SS ) , S PACE= ! C YL , 4 ) , 
// DCB=!RECFM=FB.BLKSIZE=1980,LRECL*30) 

//FT31F001 DD UN IT=2400- 1 , LABEL= ! 2 , BLP ) , V0L=SER=5422 , 

// DCB=!DEN=1,RECFM=FB,LRECL=a92, BLKSIZE=4800,TRTCH=ET,ER0PT=SKP) 

//STEP2 EXEC PGM=B2 

//STEPLIB DO DSNAME=F0826.PSB,DISP=SHR, V0L=SER=LINDA,UNIT=2314 
//FT06F001 DD SYSOUT=A, OCB= !RECFM=FBA , LRECL=133, BLKS IZE = 3325) 

//FT13F001 DD DSNAME = F0826. R8, UN I T=2321 , D I SP = ! MOD ,KEEP ) , 

// VOLUM£=SER=CEL004,LABEL=EXPDT=74180,SPACE=!CYL,80) , 

// DCB=!RECFM=FB,BLKSIZE=1980,LRECL=30) 

//FT09F001 “ 



DD DSNAME=COUT,UNIT=SYSDA,DISP=!OLD, DELETE) 



A 
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P.S.R. CHECK PROGRAM DECK 



//BOXflOiC JOB (0826, 0232FP,55HJ)t'J.P.HYNES' 

// EXEC FORTCLG 
//FORT.SYSIN DD * 

C PRELIMINARY SHIPMENT SELECTION CHECK PROGRAM 

C (P.S.R. CHECK PROGRAM) 

C THIS PROGRAM READS AND PRINTS SEVERAL OF THE RECORDS IN FILE 13 
C FOR THE PURPOSE OF CHECKING THE FILE. 

IMPLICIT INTEGER*4 (A-ZJ 

INTEGER*2 PIECES, DATE 
NUMBER=100 
DO 1 1=1, NUMBER 

READ(13,2) POD, CONI, C0N2, TYPE, CUBE, WEIGHT, PIECES, DATE, 

^ COMMf TACCTC 

2 F0RMAT(A3,A4,A2,A1,2A4,2A2,A3,A4) 

WRITE(6,3) POD, CONI, C0N2, TYP E , CUBE , WEI GHT, PIECES, DATE, 

« COMM, TACCTC, I 

3^F0RMAT(1X,A3,1X, A4,A2, lX,Al,iX,4I9,3X,A3,3X,A4, 

* 19 ) 

1 CONTINUE 
STOP 
END 

//G0.FT13F001 DD DSNAME = F082o .R8, UN I T = 232 1 , D I S P= (OLD, KEEP ) , 

// V0LUME=SER=CEL004,LABEL=T,, , IN) 

A 



P.S.R. BACKUP TRANSFER DECK 



//B0X$101D JOB (0826, 0232FP.55HJ), • J.P. HYNES' ,TIME=4 
//JOBLIB DD DSNAME=F0826.P5B,DISP=SHR, V0L=SEft=LINDA,UNIT=2314 
//STEPl EXEC PGM=B2 

//FT06F001 DD SYSOUT=A , SPACE= (TRK , 2 ) 

//FT09F001 DD DSNAME = F0826. R8, UN I T = 2321 , DI SP= (OLD, KEEP ) , 

// V0LUME=SER=CEL004,LABEL=( , ,,IN) 

//FT13F001 DD DSNAME=F08 26 .MT030 , UN 1 1=2400 , D IS P= ( NEW , K EEP ) , 
// V0L=SER=NPS390,LABEL=(2,SL) , 

// DCB=(RECFM=FB,LRECL=30,BLKSIZE=3000) 



A 
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POD SELECTION PROGRAM DECK 



^/B0X|10JEp^gBc(08 26,02 32FP,55HJ ) , • J .P. HYNES • , "IME = 8 

//FOPT.SYSPR INT DO SYSOUT = A , SPACE= ( -"RK , 5) 

//FQRT.SYSTN DO 
C P'~D SELECTION PROGRAM 

C THIS PROGRAM SELECTS SHIPMENTS GOING TO SPECIFIED POOS 

C DURING A SPECIFIED TIME FRAME, AND 

C TRANSFERS THE RECORDS TO LOGICAL UNI'^ 14. 

C INPUT DATA ARE: 

C 1. POO CODES OF THE RECORDS WHICH APE TO BE TRANSFEREO. 

C 2. TERMINATION PARAMETERS WHICH STOP THE PROGRAM WHEN THE 

C NUMBER OF RECORDS TRAMSFEPEO EXCEEDS THEM. (THIS FEATURE 

C IS BUILT IN SO THAT THE NUMBER OF RECORDS TRANSFERED 

C TO F’LE 14 CAN BE CONTROLLED. THESE TERMINATION PARAMETERS 

C OPERATE ACCORDING '^0 POD GROUPS, AND WILL TERMINATE THE 

C PROGRAM ONLY WHEN ALL THE RECORDS OF THE TERMINATING 

C POO GROUP HAVE BEEN TRANSFERED. 

C FILE 13 IS THE PRELIMINARY SHIPMENT RECORDS FILE. 

C FILE 14 IS the shipment FILE I. 



r 

c 

r 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 



c 



c 

c 

c 

c 



control card input FORMAT: (ONE CARD FOR EACH GROUP OF POOS) 

CARD COLUMNS 1-5: NUMBER OF SHIPMENTS, WHICH WHEN EXCEEDED, 

WILL TERMINATE THE TRANSFER AFTER ALL 
SHIPMENTS for ^HE POOS LISTED ON THIS CARD 
HAVE BEEN TRANSFERED. 

(IF NO LIMIT IS DESIRED, LEAVE BLANK) 

CARO COLUMNS 6-8: NUMBER OF PODS LISTED ON THIS CARD. 

CARO COLUMNS 9-11: FIRST POD MNEMONIC. 

CARD columns 12-14: SECOND POO MNEMONIC. 

ETC. FOR EACH POO (UP TO 24 POOS). 



IMPLICIT INTEGER=i'4 ( A-Z ) 
IN’EGER*2 PIECES, DATE 
DIMENSION A(6),NSHP(24) ,P00(24) 



DATA CH0/1H0/,CH0/1H0/ 

WRITE! 6, 9) 

9 FORMAT! 'IPOD SHIPMENT SELECTION PROGRAM.',//) 

REWIND 14 
NUMT=0 
6 REWIND 13 

REAO(5,l,ENO=2) T ERM , NPOO, POD 
1 F0RMAT(I5,I3,24A3) 

IF(TERM.EQ.O) T ER M= 99 9999999 
on 15 1=1,24 
15 NSHP(I)=0 
NUM=0 

IF(TERM.LT.MUMT)GC TO 2 

5 REA0(13 ,4,EN0=7 ) P , A , SCGOX , CU BE , WE I GHT , P I ECES , DATE , COMM , T ACCTC 
4 FCRMAT( A3,6A1, A1,2A4, 2A2,A3, A4) 



if. 

DATE SCREEN AND SELECTION EOLLOW. (IF ANY) 



C 

C 

no 11 I=1,NP0D 
IF(P.EQ.POO( I ) ) GO TO 12 

11 CONTINUE 
GO TO 5 

12 NUM=NUM+1 
NSHP(I)=NSHP(I)+1 
DC 21 1=2,6 

IF( A( I ) .NE.CHO) GO TO 21 
A( I ) =CHO 
21 CONTINUE 

C 

c 
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C 

WPITF( 14, 14) A.SCGPX.CUBEt WEIGHT, pieces , DATE 
14 FQRMAT(6M,A1,^A4,2A2) 

GO TO 5 

7 NUyT=NUMT+NUM 

WRITE(6,8) POD,NSHP, NUM,NUMT 

8 PORMATI* POD GROUP 2X , 24( A4 , 1 X ),/ , 

* • SHIPMENTS=* ,2415,/, 

* • ■^OTAL SHlf>MEVTS=* ,17, • . CUMULATIVE TRANSFERS 

* 17, // ) 

GO TO 6 

2 ENDFUE 14 
STOP 
END 

/* 

/VL INK.SYSPRINT DD S YSOU'" = A , SPAC E = ( T RK , 4 ) 

//GO.FT06F001 DD SYSGUT = A , S PACE = ( TRK , 5 ) 

//GC.FT13F001 DD DSNAME = F082 6 . R8 , UN I T = 2 32 1 , DI S P= ( GL D, KEE P ) , 

// V0LUME=SER=CEL004,LABEL= ( ,, ,IN) 

//GO.FT14F001 DD DSNAME = GOUT , UMI T = S YSDA , D I SP= ( NEW, PA SS ) , 

// DCB=(RECFM=F6,LRECL=19,BLKSIZE=3515) , 

// SPACE=(CYL,15,RLSE) 

//GO.SYSIN DD « 

14RA3RJ1RJ3SA1TA2UB1UC2UD6UL7UM1UM4U02XE2SA3 

A 

y/E2 EXEC DGM=IERRCOOO 

//SGRTL'B DD DSNAME=SYS1.S0RTLIB,DISP=SHR 
//SOPTIM DD DSNAME=CO'JT,UNIT = SYSDA,DISP=(OLD, DELETE) 

//SGRTOU^ DD DSNAME=F0826.SHFI2,UNIT=2321 ,OISP=(OLD,KEEP) , 

// VOLUME=SER=CEL005,SPACE={CYL,50) , LABEL=EXPDT=74365, 

// DCe=(PECFM=FP,BLKSIZE=1995,LRECL=19) 

//SORTPR DD SYSCUT=A,SPACE=(TRK,1,RLSE) 

//SORTWKOl DD UNI T=SYSDA, S RAC E= ( CYL , ( 5 , 1 ) , P LS E , CONT I g ) 

//SORTWK02 DD UNI T=SYSD A , S P AC E= ( C YL , ( 5 , 1 ) , R L S E , CCNT I G ) 

//S0RTWK03 DD UN I T = SYSD A , S P ACE = ( C YL , ( 5 , 1 ) , RLS F , CONT I G ) 

//SORTWK04 DD UN I T = SYSD A , S P AC E= ( C YL , < 5 , 1 ) , R LS E , C ONT I G ) 

//SYSIN DD ♦ 

SOR" FIELDS= ( 1,6,CH, A) 
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CONSIGNEE SCREEN PROCRAM DECK, 



//P.0X$101F JOB ( 0826, 0232<=P t55HJ ) , 
// EXEC FOPTCLG 

//fort.sysin do * 



J.P. HYNES' 



CONSIGNEE SCREEN PROGRAM 
C UNIT 20 IS the screened POD, CONSIGNEE, BREAKBULK POINT FILE 

implicit IMTEGER*2 (A-Z) 

INTEGE9«4 POD 

DIMENSION C0N1(6) ,C0N2(6) ,C3N3( 6) 
data CH0/1H0/,CH0/1H0/,BLNK/1H / 

23 READ! 5, 1 ,END=2) CCNl , C0N2 ,C0N3 , POD 

1 FORMA T(6A1,2X,6A1,2X,6A1,8X, A3 ) 

DO 3 1=2,6 

IF( CONI ( I ) .EQ.CHO ) CONi(I)=CHO 
!F(C0N2( I ) . EQ.CHO) CGN2(I)=CH0 
IF(C0N3( I) . EQ.CHO) C0N3(I)=CH0 
3 C'r'NTINUE 

write (20, 21) POD, CONI , CONI, CON 3 
21 FORMAT ( A3, 18A1) 

!F(CDN2( 6) .NE.BLNK) WRITE(20,21 ) POD,CON1 ,C0N2 , C0N3 
GO TO 23 

2 REWIND 20 
STOP 

END 

A 

//GO. FT20F001 DD DSNAME = F08 26 . S PC6 F , UN I T= 2321 , DT SP= ( M EW , KEE P ) 

// V0LUME=SER=CEL005,LABEL=EXPDT=74365,SPACE= ( CYL , 

// DCB= (RECFM=FB,LRECL=21 ,BLKSIZF= 1R95) 

//GO.SYSIN DD * 



BTHCDP 


WT0JH2 


K 


PA3 


B’^HOCP 


WT0JH2 


K 


RA3 


btheop 


WT0JH2 


K 


RA3 


BTHKOP 


WT0JH2 


K 


RA3 


rthR^'P 


WT0JH2 


K 


RA3 


BThCOB 


W^OJH? 


K 


RA3 



1 ' 



POD, CONSIGNEE, BREAKBULK POINT 
CARD FILE 



240151 


N00604 


L 


XE2 


Z40152 


N00604 


L 


XE2 


Z40154 


N00604 


L 


XE2 


Z40156 


N00604 


L 


XE2 


Z40157 


N00604 


L 


XE2 


Z40301 


N00604 


L 


XF2 


Z40305 


N00604 


L 


XE2 


Z41564 


N00604 


L 


XE2 


Z41795 


N00604 


L 


XE2 


Z41796 


N00604 


L 


XE2 


Z71 114 


N00604 


L 


XE2 


Z82951 


N00604 


L 


XE2 


Z83974 


N00604 


L 


XE2 


H00 352 


N00604 


L 


XE2 



//* 






108 



CONSIGNEE MATCH PROGRAM DECK 



//BOXSIOIG JOB (0826, 0232FP, 55HJ)t 'J.P. HYNES' tT!ME=4 
//SOPT EXEC PGM=IEPRCOOO 

//SOPTLIB CD DSNAME=SYS1.S0RTL IBtDI SP=SHP 

//SORTIN DD DSN«^ME = F0826.SPCBF,UNIT = 2321,DISP=(0LD,KeEP) , 

// VOLUME = SER=CEL005, LA BEL = ( , , ,IN) 

//SORTOUT DO DSNAME=&G!JT1, UNIT=SYSDA,DI SP = (NEW,PASS ) , 

// DCB=(RECFM=FB,LRECL=21,BLKSIZE=3507) , 

// SPACE=(CYL,l,RLSE) 

//SOPTPR 00 SYS0UT=A,SPACE=C^RK,1,RLSE) 

//SCPTWKOl DO UNIT=SYSDA,SPACE=(TRK,(9,1),RLSE,C0NTIG) 

//S0RTWK02 00 UN I T=S YSD A, S P ACE= ( TP K , ( 9 , 1 ) , RLS E , CONT I G ) 

//S0PTWK03 00 UNIT=SYSOA,SPACE=(TPK, (9, 1) ,PLSE,CGNTIG) 

//30RTW<04 00 UNIT=SYSDA,SPACE=(TRK, (9, 1) ,PLSE,CONTIG) 

//SYSIN 00 * 

SCRT FIELDS = (10,6,CH,A) 

^/U2 EXEC FORTCLG 
//FOPT. SYSIN DD 
C CONSIGNEE f^ATCH PROGRAM 

C THIS PROGRAM COMPARES SHIPMENT FILE DATA WI'^H KNOWN CONSIGNEE 

C CODES; SHIPMENTS W^HOUT KNOWN CONSIGNEE CODES ARE LISTED. 

C ALSO MATCHED CONSIGNEE DATA IS PASSED TO FILE 23. 

C FILE 15 IS SHIPMENT FILE II 

C file 20 IS THE SORTED SCREENED POO, CONSIGNEE, BREAKBULK POINT 

C FILE. 

C FILE 19 IS the condensed POD, CONSIGNEE AND BREAKBULK POINT FILE. 

IMPLICIT integer*^ (A-Z) 

INTEGER*2 PIECES, DATE, TYPE 

REAL*4 TCUBE.TWEIGH 

C QM IS LOADED WI+H THE HOLLERITH PUNCH 12-0,12-0,12-0,12-0. 

DATA QM/4H / 

WPITE( 6 , 201 ) 

2D1 FCRMAT( ' lUNMATCHED SHIPMENT LISTINGS' ,///) 

FNDF=1 

LCCNB1=0 

LCCNB2=0 

LP0D=0 

SUMU=0 

MATCH=0 

PEAD( 15,34, END= 8) C0NB1,C0NB2, CUBE, WEIGHT, PIECES, DATE 
34 FORMAT( A4, A2, 1X,A4, A4, A2, A2) 

C THE FOLLOWING TWO STATEMENTS ARE NEEDED TO CORRECT THE PROBLEM 
C OF ILLEGAL CHARACTERS NOT SETTING THE SIGN BIT. 

IF(C0NB1.GE .0) C0NE1 = QM 
IF(C0NB2.GE .0) C0NB2=QM 
SUM=1 

6 IF(MATCH.GT.O) WRITE(19,3) POD , C ONXl , C0NX2 , CONAl ,C 0NA2 , CONYl , CONY 
MATCH=0 

READ ( 20, 3, END=5 1 ) POO, CONX1,CONX2, CONAl, C0NA2, CONYl ,C0NY2 
3 F0RMAT(A3,3(A4,A2)) 

IF(C0NA1 .GE .0) GO tq 5 
GO TO 5 
312 MATCH=1 

7 RFA0( 15,34, END= 8) CQNBl ,C0NB2, CUBE, WEIGHT, PIECES, DATE 

C THE FOLLOWING TWO STATEMENTS ARE NEEDED TO CORRECT the PROBLEM 
C GF ILLEGAL CHARACTERS NOT SET'^ING THE SIGN BIT. 

IF(CONBl.GE.O) C0MB1=QW 
IF(C0MB2 .GE .0) C0NR2 = QM 
SUM=SUM+1 

IF( ENDF.E0.2 ) GO TO 52 

5 IF( (CONAl. EQ.CONBl) .AND. (CCNA2.FQ.C0NB2 ) ) GO TO 312 
IF(CONAl.LT.CONBl) GO TO 6 

IF( (CONAl. EQ.CONBl) .AND. (C0NA2 .lt. C0NB2) ) GO TO 6 
52 CONTINUE 

IF(LPOD.EQ.O) GO TO 112 

IF( (CONBl.EO.LCONBl) . AND.(C0NB2.EQ.LC0N92) ) GO TO 113 
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WRITE(6, 111 ) LCDNB1,LC0NB2,TSHIP,TCUBE,TWEIGH 

111 FCPMAT(5X, A4,A2, IX, 15, 2F10.0) 

SUMU=SUMU+TSHIP 

112 TCUBE^FLOAT(CUBE) 

TWEI GH=FLOAT (WE IGHT ) 

TSHIo=l 

LPOD=PGO 
LC0NB1=CCNB1 
LCDNB2=C0NB2 
Gr TO 7 

11? T'“UBE = ^CU6E + FL0AT (CUBE) 

TWEI GH=TWEIGH+FLOAT( WE IGHT ) 

TSHIP=TSHIP +1 
GO TO 7 
51 CONTINUE 
ENDF=2 
GO TO 52 
8 CONTINUE 

IF(MaTCH.GT.O) WRITE (19,3) POD , CONX 1 , C0NX2 , CON A 1 , C0NA2 , CON Y 1 , CCNY2 
SUMU=SUMU+TSHIP 

IF(SUNU.GT.O) WRITE(6,111) LC ONB 1 , LC 0NB2 , TSH I P , T CUB E , T WE I GH 

WPITE(6,202) SUM 

202 FQRMAT(» TOTAL NUMBER OF S HI PMENTS = ' , I 10 ) 

WRITE(6,203) SUMU 

203 FORMAT!' TOTAL NUMBER OF UNMATCHED SHI PMENT$= • , I 10 ) 

REWIND 15 

STOP 

END 

/^GO.FTlpFOOl DD DSNAME=F0826.SHFI2,UNIT=2321,DISP=(0LD,KEEP) , 

// VOLUME = SER=CEL005,LABEL= ( ,,,IN) 

//G0.FT20F001 DD DSNAME = LOUT 1 , UN I T = S YS D A, D IS P = ( OLD , DELET E ) 

//G0.FT19F001 DD DSNAME=C0UT2 , UNI T=S YS DA, DI SP= ( NEW , PASS ) , 

// DCB= (RECFM=FB,LRECL=21,BLKSIZE=3507) , 

// SPACE=(TRK,5,RLSE) 

//U3 EXEC PGM=IERRCOOO 

//SORTLIB DD DSNAME=SYS 1 . SOPTL I B , DI S P=S HR 

//SOPTIN DD DSNAME=&0UT2,UNIT=SYSDA, DI SP=(OLD, DELETE ) 

//SOPTOUT DD DSNAME=F0826.MT023,UNIT=2314, VOL=SER=DUFFY, 

// DISP=(NEW,KEEP) ,DCB= ( R EC FM=FB , L R ECL=2 1 , BLK S I ZE=3507 ) , 

// SPACE=(TRK,5) , LABEL=EXPDT=74365 

//SORTPP DO SYS0UT=A,SPACE=(TRK,I,PLSE) 

//SORTWKOl DD UN I T= SYSD A, S P ACE= ( TRK , ( 7 , 1 ) , RLS E , CONT I G ) 

//S0RTWK02 DO UNI t = sySDA, S PAC E= ( TRK , ( 7 , 1 ) , RLS E , CONT I G ) 

//SCPTWK03 DO UN! T=SYSDA,SPACE=(TPK, (7, 1) ,PLSE,CONTIG) 

//S0PTWK04 DD UN I T= SYSO A, S P AC E= ( trk , ( 7 , 1 ) , R LS E , CONT I G ) 

//SYSIN DD * 

SORT FIELDS=( 1,3,CH,A,4,6,CH, A) 
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SERIALIZATION PROGRAM DECK 

//BOXSIOIH JOB (0826, 0232FP,55HJ),*J.P. HYNES' 

//VI EXEC FORTCLGP 
//FORT.SYSIN DO * 

C SERIALIZATION PROGRAM 

IMPLICIT INTEGER*4 (A-Z) 

INTEGER*2 NCON.NPOD, BBPS 

DIMENSION C0N1(2),C0N2(2) ,BBP(2) , BBPF ( 2 , 1000 ) 

DIMENSION BPCD(IOOO) 

DATA BLNK/2H / 

NCCN=0 

NBBP=0 

NP0D=0 

LP0D=0 

WRITE(7, 111 ) 

111 FCRMaT('PORT NAMES AND MNEMONICS FILE') 

23 READ(23, 1,EMD=2) POD, CONI , C0N2 , BBP 

1 FORMAT( A3,3 (A4.A2 ) ) 

IF(LOOD.EQ.POD) GO TO 9 
NP0D=NP0D+1 
WRITE(7,112) P0D,NP0D 

112 F(:RMAT(50X,A3,22X,I5) 

LPOD=POD 

LCON11=0 
LC0N12=0 
9 CONTINUE 

IF ( (CONKl ) .ME.LCONll ) .OR. (CONK 2) .NE.LC0N12 ) ) GO TO 211 
IF(C0N2(2).NE.BLNK) WRITE(21,22) C0N2, NCON, NPOD, BBP S 
GO TO 23 

211 LCQN11=C0N1 ( 1) 

LC0N12=C0N1 (2) 

NC0N=NC0N+1 

IF(NBBP. EQ.O) GO TO 11 
DO 12 I=1,NBBP 
IF(POD.NE.BPOD( I) ) GO TO 12 
DO 13 J=l,2 

IF(BBPF( J,I ) .NE.3BP(J ) ) GO TO 12 

13 CONTINUE 
BBPS=I 
GO TO 14 

12 CONTINUE 
C ADD BBP TO LIST 

11 N8BP=NBBP+1 
BPOO(NBBP)=POD 
DO 16 J=l,2 

16 BBPFt J,NB8P)=BBP( J) 

BBPS=NBBP 

14 CONTINUE 

WRITE(21,22) CONI, NCON, NPOD, BBPS 
22 FORMAT( A4, A2,3A2) 

IF(C0N2( 2).NE.BLNK) WRITE(21,22) C0N2 , NCON, NPOD, BBP S 
GO TO 23 

2 WPITE(6,24) NPOD, NCON, NBBP 

24 FORMAT( ‘ IPRELIMINARY POD/CONS I GME E/ BBP PROCESSOR',/, 

* • NUMBER OF P0D=*,I5,/, 

* • NUMBER OF CONS IGNEE S = ' , 1 5 , / , 

* • NUMBER OF BBP=',I5) 

WR!TE(7, 113) 

113 FORMAT! •♦♦*♦• ) 

STOP 

END 

//GO.FT21F001 DD DSNAME=fiOUT , UNITES YSDA , D ISP* ( NEW, PASS ) , 

// DCB=(RECFM = FB,LRECL = 18,BLKSIZE = 3 510) , 

// SPACE*(CYL, l.RLSE) 

//GO.FT23F001 DD DSNAME = F08 26 .MT023 , UN I T =2314 , VOL = S ER*DUFFY , 

// DISP=(OLD,KEEP) ,LABEL=( , , , IN) 

//V2 EXEC PGM=IERRCOOO 

//SORTLIB DD DSNAME=S YS 1 . SORTL I B, DI S P* SHR 
//SORTIN DO DSNAME=£0UT,UNIT=SYSDA,DISP=(0LD, DELETE) 

//SORTOUT DD DSNAME = F08 26 . MT022, UN I T = 23 14 , VOL = SER=DUFF Y , 

// DISP*( OLD, KEEP) , DCB* ( REC FM=FB , LP ECL* 1 8 , BLKS I ZE = 3510 ) , 

// SPACE=(CYL, 1 ) ,LABEL=RETPD=90 

//SORTPR DO SYS0UT=A,SPACE=(TRK,1,RLSE) 

//SORTWKOl DD UNI T=SYSD A, S PACE* ( TRK , ( 9 , 1 ) , RLSE , CGNT IG ) 



//S0RTWK02 DD UNI T=SYSD A, S P AC E= ( TRK t ( 9 , 1) ,RLS E 
//S0RTWK03 DD UN I T=SYSD A, S PAC E= ( TRK , ( 9 , 1 ) , R LS E 
//S0RTWK04 DD UNI T=SYSD A, S PACE= ( TRK , ( 9 , 1) » RLS E 
//SYSIN DD * 

SDRT FIELDS=(1,6,CH,A) 



CONTIG) 

CONTIG) 

CONTIG) 
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SHIPMENT SERIALIZA TION AND LIST ING PROGItAM DECK 



TIME=4 

//FCPT.SYSIN DD ♦ 

C SHIPMENT SERIALIZATION AND LISTING PROGRAM 

C this program converts SHIPMENT DATA TO SEQUENCE NUMBERS, 

C and creates PRELIMINARY FILES FOR STUFFING LIST PROGRAM. 

C FILE 15 IS SHIPMENT FILE II. 

C FILE 16 IS SHIPMENT FILE III 

C FILE 22 IS THE SCREED SERIALIZED CONSIGNEE FILE. 

C FILE 23 IS THE CONDENSED POD. CONSIGNEE, BBP FILE. 

C FILE 24 IS THE CONDENSED SERIAL FILE. 

IMPLICIT INTEGER*4 lA-Z) 

INTEGER*2 I, PR 

INTEGER*2 P I ECES , BBP , S ER , PODS , BS , PS , DAT E , TYPE 
REAL*4 PROP,SNGL 

REAL*8 DFLOAT,TCUBE,TWEIG, SUMC.SUMW 

DIMENSION PROP! 1500) , BBP (1500) , PODS (1500) 

DIMENSION SUMC( 30 ), TCUBE { 1 500 ) , TWE I G ( 1500 ) , SUMW ( 30 ) 
DIMENSION TSHIP( 1500) , SUMS! 30 ) 

DATA QM/4H / 

C 

C 

c 

c 



//BOXIIOII JOB (0826,0232FP,55HJ),'J.P. HYNES' 
// EXEC FORTCLG, REGION. G0=130K 



C 



MXCNDM=1500 

SUMU=0 

MXP00=30 

WHEN TEST=1, SHIPMENT DATA WILL BE PASSED TO FILE 16 AND 24. 
TEST=0 
TEST=1 
ENDF=1 
NC0N=0 

DO 113 I=1.MXP0D 
SUMC( I )=0.0 
SIJMWI I ) =0.0 
113 SUMS(I)=0 

DO 1 I=1,MXCNDM 

poosn ) =0 

TSHIP( I )=0 
TCUBE( I )=0.0 
1 TWEIG( I )=0.0 

READ( 15,34, END= 8) C0NB1,C0NB2, SCGOX, CUBE, WEIGHT, PI ECES, DATE 
IFCONBl.GE .0) C0NB1 = QM 
IF(C0NB2.GE .0) C0NB2 = QM 

6 READ(22,3,END=51 )C0NA1,C0NA2,SER, PS,BS 
3 FORMAT! A4,A2,3A2) 

PODS(SER)=PS 
BBP(SER)=BS 
GO TO 5 

7 READ! 15,34, END= 8) CONB1,CONB2, SCGOX, CUBE, WEIGHT, PI ECES, DATE 

34 FORMAT! A4 , A2 , A 1 , A4 , A4 , A2, A2 ) 

IF!C0NB1.GE .0) C0NB1 = QM 
IF!C0NB2.GE .0) C0NB2 = QM 
IF! ENDF.E0.2) GO TO 52 

5 IF! !C0NA1.E0.C0NB1) .AND. !C0NA2.EQ.C0NB2 ) ) GO TO 9 
IF!C0NA1.LT.C0NB1) GO TO 6 

IF!!C0NA1.EQ.C0NB1).AND. !C0NA2.LT.C0NB2) ) GO TO 6 
52 CONTINUE 

SUMU=SUMU+1 
GO TO 7 
9 CONTINUE 



C 

C 



TSHIP! SER)=TSHIP! SER )+l 

TCUBE! SER) =TCUBE! SER)+DFLOAT!CUBE) 

TWEIG! SER) =TWEIG! SER ) +DFLOAT ! WE IGHT ) 
IF! TEST. EQ. 1) WRITE! 16,40) DAT E , P S, SCGOX 

40 F0RMAT!3A2,2A4,2A2) 

GO TO 7 
8 CONTINUE 

IFITEST.EQ. 1) ENDFILE 16 
WRITEI6,211) SUMU 
211 FORMAT!' NUMBER OF UNMATCHED 
* ' !THESE SHIPMENTS WERE 



, WE IGHT, CUBE, SER, piece; 



SHIPMENTS=' ,110, 
NOT TRANSFERED TO 



FILE 16) ' ) 
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COMPUTE POD TOTALS AND PROPORTIONS. 

DO 111 I=l,MXCNOM 
NPOD=PODS(I) 

SUMS(NPOD)=SUMS(NPOD) +TSHIP( I ) 

SUMW(NPOD)=SUMW(NPOD)+TWEIG( I 
SUMC(NPOD)=SUMC(NPOD)+TCUBE( I ) 

111 CONTINUE 

DO 114 I=ltMXCNDM 
J=PODS( I ) „ , 

IF(J.EQ.O) GO TO 114 
PROP ( I ) =0.0 

IF( SUMC( J) .LT.( .99) J GOTO 114 
1F( TCUBE { I ) .LT. ( .99) ) GO TO 114 
PROP ( I ) =SNGL(TCUBE( I )/SUMC( J) ) 

114 CONTINUE 
ENDF=1 
1 = 0 

LP0D=0 

NP0D=0 

221 RE AD { 23 » 1 1 * END=53 ) POON i CAA t CAB ♦ CBA» CBB i BA» BB 
11 FORMAT! A3. 3( A4.A2 ) ) 

IF(POON.NE.LPOD) GO TO 13 Tn io 

IF ( ( CAA.NE .LCAA) .OR . ( CAB.NE .LCAB ) ) GO TO 18 
IF(ACON .EO.O) GO TO 221 
WRITE(6,212) CBA.CBB 
212 F0RMAT(23Xt A4,A2) 

GO TO 221 

18 PODCON=PODCON+1 
LCAA=CAA 

IF(TSHIP(I ).LT.l) GO TO 15 
ACON= ACON+1 

WRITE(6.14) CAA,CAB,I»C3AtCBBtBA»BBt 

♦ SbP(I ),T§HIP| I),TCUBE( D.TWElGd ), 

♦ PROP(I) 

14 F0RMAT(4X,A4,A2, IX, I5,7X, 

♦ A4,A2,4X,A4,A2,I5,lXtI10,4X,D12.5,D14.5t5X,F7.5) 

IF(TESt1eQ?1)^WRITE?24!i9)P0DN,CAA,CAB,BA,BB, I,PODS(I),BBP(I) ,PR 

19 FORMAT! A3, A4,A2,A4,A2,4A2) 

13 IF!NP0D^GT.0 ) WRITE!6,16) LPOD,PODCON, 

SUMC!NPOD) , SUMW!NP0D)_ 



AC0N,SUMS !NP0D) 



16 FORMAT!' P0D=',A3,'. NUMBER OF LISTED CONSI GNEE S= ' , 1 4, 

NUMBER OF ACTIVE CONS I GNEES= • , 1 4, / , 

« • TOTAL SHIPMENTS=' , 17, ' . TOTAL CUBE=' ,D14.8, 

♦ • TOTAL WEIGHT=' ,D14.8) 

IF! ENDF.EQ.2 ) GO TO 12 

AC0N=0 

P0DC0N=0 

NP0D=NP0D+1 

LP0D=P0DN 

WRITE!6,17) PGDN 

17 FORMAT! 1P0D=',A3,/A p SHIPMENTS' 

« CONSIGNEE SEJ u ^^IGHT CUBE PROPORTION',//) 

GO TO 13 
51 ENDF=2 
GO TO 52 
53 ENDF=2 
GO TO 13 
12 STOP 
END 



//G0.FT15F001 

// 



//GO. 

// 

//GO. 

// 

//GO. 

// 

// 

//GO. 

// 

// 

/* 



FT22F001 
VOL = S 
FT23F001 
VOL = S 
FT16F001 
DISP = 
DCB=! 
FT24F001 
DISP = 



DD DSNAME=F0826.SHFI2,UNIT=2321,DISP=! OLD, KEEP) , 
VOL UME=SER=CEL005, LABE L= ! , , , IN ) 

DD DSNAME=F0826.MT022,UN1T=2314,DISP=!0LD,KEEP) , 
Dd"dSNAME=F08261mt623,UNIT=2314,DISP=!OLD,KEEP), 
Dd"0SNAME=F08261rUun1t=2314,V0L=SER=DUFFY, 

RECFM=FB^LRECL=i8^BLKsiz^ 

DD DSNAME=F0826.MT024,UNIT=2314, VOL=SER=LI NDA, 

!,?kS’(5l!?ii"F§aki?r4t:I?ilsiZE = 35l9.,SPACEMTRK,6. 
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SHIPMENT SCREEN AND SPLIT PROGRAM DECK 



//BOX$101J JOB (0826. 0232FPt55HJ),*J.P. HYNES' ,TIME=4 
//Jl EXEC PGM=IERRCOOO 

//SQRTUTB DO OSNAME=S YS 1 . SORTL I B, DI S P=SHR 
//SORTIN DO DSNAME=F0826.R6,UNIT=2314,V0L=SER=DUFFY, 

// DISP={OLD,KFEP) ,LA6EL=(t t t IN) 

//SORTOUT 00 OSNAME=£OUT,UNIT=SYSDA»OISP=(NEWtPASS) , 

// 0CB=(RECFM=FB,LRECL=18,BLKSIZE=3510) , 

// SPACE=(CYL.8.RLSE ) 

//SORTPR DO SYS0UT=A,SPACE=(TRK,1,RLSE) 

//SORTWKOl DO UNIT=SYSOA,SPACE=(CYL» (4, 1) tRLSE.CONTIG) 

//S0RTWK02 DO UNI T=SYSD A , SPACE=(CYL » { 4 t 1) , RLS E , CONT I G ) 

//SCRTWK03 00 UN I T = SYSDAt S PACE=( C YL , ( 4 1 1) » RLS E ♦ CCNT I G ) 

//S0RTWK04 DO UN I T=SY SO A t S P AC E= ( CYL f ( 4 t 1 ) , RLS E , CCNT I G ) 

//SYSIN 00 * 

SORT FIELOS=( l»2,CH,A) 

//J2 EXEC FORTCLG 
//FORT. SYSIN 00 « 

C SHIPMENT SCREEN AND SPLIT PROGRAM 

IMPLICIT INTEGER*4 (A-Z) 

INTEGER’1'2 OTER, PODS , TYPS» SW, SC tCONS t LSTDTE, TCNI , TCN IN 
INTEGER*2 PIECE2 

REAL*4 FLOAT,XMAXCtXMAXW,XCUBE tXWGHTtXPIECE,XCPP.XWPP,UWGT»UCUB , 
1 XNUM 

PRINT=1 
UNT0=13 

C 392)9333393 3 33 3333333 3 3 

MAXC=32000 
MAXW=32000 

C 3333333333333333333333339 
LSTDTE=0 

20 REAO( 18,1.END=22) OT ER , PODS , TYPS , WGHT t CUBE , CONS , P I ECE2 
1 F0RMAT(BA2t2A4,2A2) 

TF{DTER.GT.3 ) PRINT=0 
IF(LSTDTE.EQ.DTER ) GO TQ 3 
LSTDTE=OTER 
TCNI=0 

3 TCNI=TCNI+1 

IF{ (MAXC.GT. CUBE) .AND. (MAXW.GT. WGHT) ) GO TC 211 

TCNIN=-TCNI 

XMAXC=FLOAT (MAXC) 

XMAXW=FLOAT(MAXW) 

XCUBE=FLOAT{CUBE) 

XWGHT=FLOAT(WGHT) 

6 P1ECES=PIECE2 

XPIECE=FLCAT (PIECES) 

XCPP=XCUBE/XPIECE 
XWPP=XWGHT/XPIECE 
MCL=IFIX (XMAXC/XCPP) 

MWL=IFIX(XMAXW/ XWPP) 

NUM=MCL 

IF(MWL.LT.NUM) NUM=MWL 
IF(NUM.GT.O) GO TO 311 
PIECE2=PIECE2+100 
GO TO 6 

311 XNUM=FLOAT(NUM) 

UWGT=XWPP*XNUM 

UCUB=XCPP*XNUM 

SW=IFIX(UWGT+.51) 

SC=IFIX(UCUB+.51) 

314 IF(NUM.LT. PIECES) GO TO 313 
SW=IFIX(XWGHT) 
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313 



114 

113 

211 

111 



22 

^/GO. 

n 

f/GO. 



6,114) DTER,PODS,TYPS, 



SW,SC,CCNS,TCNIN 

SW,SC,CONS,TCNIN 



SC=IF1X( XCUBE) 

GO TO 111 
XWGHT=XWGHT-UWGT 
XCUBE=XCUBE-UCUB 
PIECES=PIECES-NUM 
IF( PRIMT.GT.O)WRITE{ 

IF?UNToIgT.O )WRITE( UNTO, 113) DTER ,PODS , TYPS, 

FORMAT( 7A2) 

GO TO 314 
SW=WGHT 
= C U8 E 

IF( UNTO. GT.O ) WRITE! UNTO, 113) DTER » PODS , TYPS , SW, SC , CONS , TCNI 

IF( PRINT. GT.O )WRI TE( 6,114) DT E R, PODS , TYPS , SW , SC , CONS , TCNI 

GO TO 20 

CONTINUE 

STOP 

END 

FT13F001 DO DSNAME=F0826.R6,UNIT=2314, VOL=SER=DUFFY, 
FT18F00rDD'‘D^NAME=C0UT,UNIT = SYSDA,0ISP = ( OLD, DELETE) 
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STUFFING LIST GENERATION PROC31AM DECK 



//BOXSIOIK JOB (0826, 0232FP,55HJ)t'J.P. HYNES' 

//I 1 EXEC PGM = IERRCOOO 

//SORTLIB DO DSNAME=SYS1.S0RTLIB,DI SP=SHR 

//SORTIN DD DSNAME=F0826,MT024tUNIT=2314,V0L=SER=LIN0A, 

// OISP=(OLD,KEEP),LABEL=(,,,IN) 

//SORTOUT DD DSNAM E=&OUT , UN I T=SYSDA , D I S P= ( NEW , PASS ) , 

// DCB=(RECFM=FB, LRECL=23,BLKSIZE=3519) , 

// SPACE=(TRK,6,RLSE) 

//SORTPR DD SYS0UT=A,SPACE=(TRK,1,RLSE) 

//SORTWKOl DD UNI T=SYSD A, SP ACE= ( TRK , ( 6 , 1) , RLS E , CONT I G) 

//S0RTWK02 DO UN I T=SYSD A, SP ACE= ( TRK , ( 6 , 1 ) , RLS E , CONT I G ) 

//S0RTWK03 DD UNI T =SYSD A, S PAC E= ( TRK , ( 6 , 1) , RLS E , CCNT I G ) 

//S0RTWK04 DD UNI T=SYSO A , SPACE= ( TRK , ( 6 , 1 ) ,RLS E , CONT I G ) 

//SYSIN DD # 

SORT FIELDS=( 18,2,CH,A,20,2,CH,A) 

//I2 EXEC FORTCLGP, REGION. G0=99K 
//FORT. SYSIN DD 

C STUFFING LIST GENERATION PROGRAM 

C THIS PROGRAM GENERATES STUFFING LISTS 

IMPLICIT INTEGER*2(A-Z) 

INTEGER*^ CUT4 
REAL«4 PCT, FLOAT 

DIMENSION SAP(30 ),EAP(30 ),SAB(200 ),EAB(200 ) 

DIMENSION CONGRP( 1500) ,LOC( 1500) 

DIMENSION REC(IOOOO) 

DIMENSION SPCT(1500),CNS(1500),SLP(2,30 ) 

C READ SORTED SEQUENCE FILE AND SET STARTING AND ENDING ADDRESSES. 
NC0N=1 
NPno=i 
NB8P=1 

READdO, DCONSEQ, 

SAP( 1 )=1 
SAB( 1)=1 
LOC( 1 )=1 
SPCTd )=PERCNT 
CNS( 1)=C0NSEQ 
4 READ( 10, 1,END=11) 

1 FORMAT! 15X,4A2) 

IF( PODS. EQ. LPODS) 

LP00S=P0DS 
EAP(NPOD)=NCON 
NP0D=NP0D+1 
SAP(NP0D)=NC0N+1 

2 IF(BBPS.EQ.LBBPS) 

EAB(NBBP)=NCQN 
NBBP=NBBP+1 
SAB(NBBP)=NC0N+1 
LBBPS=B8PS 

3 NC0N=NC0N+1 

LOC(NCON)=NCON 
SPCT( NCON)=PERCNT 
CNS(NCON) =CONSEQ 
GO TO 4 

11 EAP(NPOD)=NCON 
EAB(NBBP )=NCON 
NSLA=NBBP+1 

C CREATE LEVEL 1 STUFFING LISTS 

PNTR=1 

DO 211 J=1,NP0D 
BEGIN=SAP(J) 

END=EAP( J) 

1112 FORMATdOIT) 

SLPd, J)=PNTR 
START=PNTR 
DO 212 K=BEGIN,END 
REC( PNTR)=PNTR+3 
REC(PNTR+1)=CNS(K) 

REC(PNTR-*-2)=NSLA 
PNTR=PNTR+3 
212 CONTINUE 



LPODS, LBBPS , PERCNT 

CONSEQ, PODS, BBPS, PERCNT 
GO TO 2 

GO TO 3 



REC( PMTR-3)=START 
211 CONTINUE 

C SORT PERCENTAGES BY SIZE (ASCENDING ORDER) 

DO 21 I=l,NPOD 
BEGIN=SAP(I ) 

ENO=EAP( I )-l 

34 FLAG=1 

DO 33 J=BEGIN,END 

IF( SPCT( J) .LE.SPCT( J+1 ) ) GO TO 33 
FLAG = 2 

TEMP=SPCT(J) 

SPCT( J)=SPCT( J+1) 

SPCT( J+1 )=TEMP 
TEMP=LOC( J) 

LOC( J)=LOC(J + l) 

LOC( J+1)=TEMP 
33 CONTINUE 

IF(FLAG.E0.2) GO TO 34 
36 SUM=0 

END=END+1 

C ASSIGN GROUPS 

DC 35 J=BEGIN,END 
SUM=SUM+SPCT( J) 

GRP=1 

IF(SUM.LT. 900) GRP=GRP+1 
IF(SUM.LT. 600) GRP=GRP+1 
IFISUM.LT. 300) GRP=GRP+1 
K=LOC( J) 

CONGRP(K)=GRP 

35 CONTINUE 
21 CONTINUE 

WRITE(7,7631 ) 

7631 FORMAT!' CONSIGNEE GROUP DATA FILE' ,39X , • 05' 
WRITE! 7, 15) !CNS! I ) ,CONGRP! I ) , I=l,NCONi 
15 FORMAT! 16! 14,11) ) 

I=-l 
J = 0 

WRITE!7,15) !I,J,K=1,16) 

DO 111 1=1,4 
BC = 0 

PNTR=NC0N«3 + 1 
DO 112 J=1,MP0D 
BEGIN=SAP! J ) 

END=EAP! J) 

SLP!2, J)=PNTR 
START=PNTR 

121 BC=BC+1 
FLAG=1 

STRT=SAB!BC) 

STP=EAB! 80 
DO 122 L=STRT,STP 
IF!CONGRP!L) .LT.I ) GO TO 122 
FLAG=2 

PEC! PNTR)=PNTR+3 
REC(PNTR+1)=CNS!L) 

PEC! PNTR+2)=0 
PNTR=PNTR+3 

122 CONTINUE 

IFIFLAG. EQ.2 ) REC ! PNTR-1 )=BC 
IF(STP .LT.ENO) GO TO 121 
IF! PNTR.EQ. START) GO TO 123 
REC(PNTR-3)=START 
GO TO 112 

123 SLP!2,J)=0 
112 CONTINUE 

NSLVL=2 

WPITE!7,151) NSLVL,NSLA,I 
151 FORMAT! ^ ORDERED STUFFING LIST FILE 
♦ '05', 12,13,14) 



• ,35X, 
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noata=pntr-i 

WRITE (7, 152) NOATA, ( (SLP(L,K) ,L=1 ,NSLVL ) tK*l,NPOD) 

152 F0RMAT(12I6) 

WRITE! 7, 153) (REC (K) » K=1,NDATA ) 

153 FQRMAT(6( 15, 14, 13) ) 

PCT=1.0 

WRITE (7, 154) (PCT,L=1,NSLA) 

154 FORMAT! 18F4. 2) 

111 CONTINUE 

STOP 

END 

/« 

//GO.FTlOFOOl DD DSNAME=£OUT , UN IT =S YSD A , D I S P = ! OLD, DELETE ) 
/* 



ooo oo^ 
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VESSEL SCHEDULE GENERATION PROGRAM DECK 

//BOXtlOlL JOB (0826, 0607FTt55HJ) , *J.P. HYNES' 

//LI EXEC FORTCLG 
/FORT.SYSIN DO « 

VESSEL SCHEDULE GENERATION PROGRAM 
THIS PROGRAM CREATES CONTAINER VESSEL SCHEDULES. 

IMPLICIT INTEGER«4 (A-Z) 

INTEGER*2 TOC , NOCA , VPOD , VY , ADA, N,MSCC 
REAL=«'4 FLOAT,RNDNUM,S,U,R,SQRT ,XADA,Z 
DIMENSION TOC ( 300 ), NOCA (300) , VPOD (300 ), MSCC( 300) 

DIMENSION CN(IOO) , PODN ( 100 ) , NM ( 3 ) , CT ( 5 ) , MX ( 5 ) , SPOD ( 5 ) , MSCX( 5 ) 

DATA AST/4H«*’«'*/,BLNK/4H / , DOL /4H$$$ $ / 

UNT = 10 
VY=0 
NPCD=0 

PEAD(5,11) TEMPI 
13 READ(5,11) TEMPI, TEMP2 
• 11 FORMAT! A4,46X,A4) 

IF(TEMPl.EQ.AST) GO TO 3 
NP0D=NP0D+1 
P0DN(NP0D)=TEMP2 
GO TO 13 

3 CONTINUE 
NCNT=0 

READ(5,2) TEMPI 

4 READ(5,2) TEMPI, TEMP2 
IF(TEMPl.EQ.AST) GO TO 12 

2 FORMAT! A4,20X,A4) 

NCNT=NCNT+1 
CN(NCNT)=TEMP2 
GO TO 4 

12 continue 

READ(5,111) TIME, SEED, PRINT, ZZZ 

111 FORMAT! 50X, 15,18, II, 13) 

IF(ZZZ.LT.O) ZZZ=365 
SEED=SEED*10 + 1 
IF(PRINT.EQ.I) WRITE(6,1) 

1 FORMATdHl, 

1 'LINE VESSEL VOYAGE ARRIVAL POD CONTAINER RES', 

2 'ERVE EXTRA', /40X, 

3 ' TYPE MSC AVAILABLE', ///) 

LN= LINE (ALPHA) 

DT= STARTING DATE (DAY OF FIRST ARRIVAL) 

U=MEAN CIRCUIT TIME 

C S = STANDARD DEVIATION OF CIRCUIT TIME. 

141 READ(5,112) LN,NM,DT,U,S 

112 F0RMAT(A4,2X,3A4,30X, I4,2F4.0) 

IF(LN.EQ.AST) GO TO 999 
RC0UNT=0 

124 READ(5,113) ( SPOD ( I ) , CT ( I ) , MSCX ( I ) , MX ( I ) , I =1 , 5 ) 

113 FCRMAT(5(2A4,2I3) ) 

DO 114 L=l,5 
CPOD=SPOD(L ) 

IF(CPOD.EQ.BLNK) GO TO 114 
IF(CPOD.EQ.DOL) GO TO 115 
DO 116 I=1,NP0D 
IF(CPOD.EQ.PODN( I ) )G0 TO 117 

116 CONTINUE 
WRITE(6,118) CPOD,NM 

118 FORMATdH ,A4,' NOT FOUND IN POD LIST. VESSEL = * , 3A4) 

STOP 

117 CCT*CT(L) 

DO 121 J=1,NCNT 
IF(CCT.EQ.CN(J) ) GO TO 122 

121 CONTINUE 
WRITE(6,123) CCT,NM 

123 FORMAT(lH ,A4,' NOT FOUND IN CONTAINER TYPE LIST. VESS EL= • , 3A4 ) 
STOP 

122 CONTINUE 
RCOUNT=RCOUNT+l 
TOC( RCOUNT )=J 
VPOD(RCOUNT)=I 
NOCA! RCOUNT )=MX(L) 

MSCC! RCOUNT )=MSCX(L) 

114 CONTINUE 
GO TQ 124 



120 



C 

C 



1 15 

142 

132 

] 

131 

133 



CONTINUE 

GENERATE SCHEDULE, AND WRITE 
R = RANGE OF CIRCUIT TIME. 

R=S*SQRT( 12.0) 

XADA=FL0AT(DT+TIME) 

ADA=DT+TIME 
M=0 

N=RCOUNT 
VY=VY+1 
M=M+1 
N=N-1 

IF(PRINT.EQ.I) WRITE<6,131) LN , NM , VY , ADA , 
CN(TOC(M)),MSCC(M) ,N0CA(MJ 
FORMAT ( 1X,A4,2X,3A4, 3X , 1 6, 3X , I 7 , 2X, A4, 4X, A4, 7 X 



PODN(VPODIM) ) 
I4,6X,I4) 



999 



ru*^rnMI \ ftcAtM'ttHAfAH, fAjlHjOAtlH-l 

WRITEIUNT, 133) VY,A0A, VPOD ( M ) , N, TOC ( M) , MSCC ( M ) , NOCA ( M) 

F0RMAT(7A2) 

IF(N.GT.O) GO TO 132 

CALL RANDU(SEED,SEED,RNDNUM) 

Z=U + R*(RNDNUM - .5) 

IF(Z.LT.l) Z=1.0 
XADA=XADA + Z 
ADA=IFIX(XADA) 

IF( ADA.LT.ZZZ) GO TO 142 

GO TO 141 

STOP 

END 



A 

7/GO.FTlOFOOl 

// 

// 

//GC.SYSIN 
PORT NAMES 



DD DSNAME=eOUT,UNIT=SYSDA,DISP=(NEW, 
DCB=(RECFM=FB,LRECL=20,BLKSIZE=3460) 
SPACE=(TRK,(5,1),RLSE) 

DD * 

AND MNEMONICS FILE 



PASS), 

t 






RA3 

RJl 

RJ3 

SAl 

TA2 

UBl 

UC2 

UD6 

UL7 

UMl 

UM4 

UQ2 

XE2 



CONTAINER DESCRIPTION 


FILE. 






AML 200 


AMID 


1119 


40000 


AML 40 


AM2D 


2565 


46000 


APL 20 


APID 


1134 


40300 


A PL 40 


AP2D 


2394 


45000 


MTSN 20 


mtid 


1100 


40000 


MTSN 24 


MT2D 


1427 


46200 


MTSN 40 


MT3D 


2386 


46200 


PFEL 20 


PFID 


1157 


40300 


PFEL 40 


PF2D 


2398 


46000 


SLND 35 


SLID 


2090 


45000 


SSC 20 


SSID 


1144 


38000 


SSC 40 


SS2D 


2383 


46000 


STLZ 27 


STID 


1791 


46000 


STLZ 40 


ST2D 


2381 


46000 


USLX 20 


US ID 


1 105 


40000 


USLX 40 

VESSEL SCHEDULE FILE 
SLND SATTAHIP I 
PA3 SLID 32100$$$$ 
SSC SATTAHIP II 

RA3 SSID 3100$$$$ 
APL KEELUNG I 

RJl APID 11100$$$$ 
APL KEELUNG I 

RJl AP2D 6100$$$$ 
APL KAOHSUNG I 

RJ3 ARID 5100$$$$ 
PFEL KAOSUNG II 
RJ3 PFID 3100$$$$ 
SLND PHIL I 
SAl SLID 26100$$$$ 
PFEL PHIL II 
SAl PFID 18100$$$$ 


US 2D 


2398 


46000 



0 19731360 

810.7 9.5 

1019.8 6.6 

1522.114.9 

713.011.4 

7 9.7 6.5 

3076.5101. 

1012.2 9.9 

1325.210.2 
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APL PHIL III 

SAl APID 20100$$$$ 


610.011.2 


USLX GUAM I 

TA2 US2D 11100$$$$ 


712.5 8.9 


STLZ GUAM II 
TA2 STID 15100$$$$ 


1218.414.6 


PFEL GUAM III 
TA2 PFID 11100$$$$ 


1631.219.7 


SLND OKINAWA I 


712.2 8.7 


UBl SLID 27100$$$$ 




SSC OKINAWA II 

UBl SSID 35100$$$$ 


1630.624.7 


APL OKINAWA III 

UBl APID 58100$$$$ 


1213.8 3.6 


SLND INCHON I 
UC2 SLID 13100$$$$ 


1221.128.3 


PFEL INCHON II 
UC2 PFIO 24100$$$$ 


817.610. 1 


APL INCHON III 

UC2 APID 21100$$$$ 


1529.018.0 


SLMD PUSAN I 
UD6 SLID 6100$$$$ 


1017.621.5 


PFEL PUSAN II 
UD6 PFID 13100$$$$ 


2020.3 9.5 


APL IWAKUNI I 

UL7 APID 5100$$$$ 


5 9.7 9.9 


APL IWAKUNI II 

UL7 AP2D 4100$$$$ 


1014.5 9.2 


APL YOKOHAMA I 

UMl APID 17100$$$$ 


711.315.5 


SLND YOKOHAMA II 
UMl SLID 5100$$$$ 


2042.543.1 


APL YOKOSUKA I 

UM4 APID 13100$$$$ 


715.816.7 


SLND YOKOSUKA II 
UM4 SLID 10100$$$$ 


1222.829.0 


SSC SASEBOI 

UQ2 SSID 7100$$$$ 


1427.611.5 


USLX HONO I 

XE2 USID 10100$$$$ 


416.611.5 


USLX HONO II 
XE2 US2D 8100$$$$ 


515.314.3 


STLZ HONO III 
XE2 STID 19100$$$$ 


6 5.9 4.3 


STLZ HONO IV 
XE2 ST2D 12100$$$$ 


713.813.4 


MTSN HONO V 

XE2 MT2D 23100$$$$ 


8 6.5 4.0 


AML HONO VI 

XE2 AMID 10100$$$$ 


1937.513.2 


AML HONO VII 

XE2 AM2D 11100$$$$ 


1429.0 1.0 



//L2 EXEC PGM=IERRCOOO 

//SORTLIB DO DSNAME*SYSl.SORTLIB,DISP=SHR 
//SORTIN DD DSNAME=&OUT,UNIT=SYSDA, DISP=(0LD, DELETE) 

//50RT0UT DO DSNAME=F0826 . V 1 , UNI T=23 14 , VOL=SER=LI NDA, 

// DISP=(OLD,KEEP) ,DCB=( RECFM=FB. LRECL=20, BLKS IZE=3460) , 

// SPACE* (CYL, 1 ) ,LABEL=EXPDT =74180 

//SORTPR OD SYS0UT=A,SPACE=<TRK,1,RLSE) 

//SORTWKOl OD UNIT=SYSDA, SPACE=(TRK, (9, 1) ,RLSE,CGNTIG) 

//S0RTWK02 DD UNI T=SYSD A , SP ACE= ( TRK , ( 9 t 1 ) , RLS E , CONT I G ) 

//S0RTWK03 OD UN I T = SYSD A, SP ACE= ( TRK , ( 9 , 1) , RLS E ,CONT I G ) 

//S0RTWK04 DD UNIT=SYSD A, SPACE* ( TRK , ( 9 , 1 ) , RLSE , CONT I G ) 

//SYSIN DD « 

SORT FIELDS = (3.,2,CH,A, l,2fCH,A,7,2,CH,D) 
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PARAMETER SETUP PROGRAM DECK 



//BOXSIOIM JOB ( 0826, 0232FPt 55HJ) 
// EXEC FORTCLGPt REGI 0N.G0=76K 
//FORT.SYSIN DO * 



• J.P.HYNES • 



PARAMETER SETUP PROGRAM 
IMPLICIT INTEGER*4 (A-Z) 

INTEGER*4 MC,MW,BP 

C0MM0N/CNTBLK/MC(20) , MW ( 20) , BP ( 20 t 30 ) , S AF ( 20 t 30 ) , NCNT» NPCD , NC ON » 
1 NCNTRG, KCNTRG(20) 



REAL*4 CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 



INTEGER#4 TOTCSC , TOTCSPf CCCUB , CVPB 

COMMON/STATBK/ CFCUB ( 30 ) tCCCUBI 30 )tCFIJT(20»3p ) , CUESP ( 20 , 30 )t 



1),CFAF(30 ),TOTCSC( 1), 



),CSTRT(30 ) 



C 

c 

c 



1 CFESPI30 )tCVPB(20,30 ),XADJ( 

2 T0TCSP(30 ) 

REAL*4 CRNGtXCMXLB 
INTEGER«4 SEED 

COMMON/PROBBK/ SEED,CRNG(30 ) » XC MXLB( 20 ♦ 30 
1 CDSTYPOO ),CRELT(30 ) 

COMMON/ I OUNT/ UNIT(30) 

DIMENSION P0DN(30),CN(20) 

PODN(l) = THE FIRST FOUR CHARACTERS OF THE (I)TH POD MNEMONIC. 
CN(I) = THE FIRST FOUR CHARACTERS OF THE (I)TH CONTAINER TYPE 
MNEMONIC. 

RFAL*4 XTEMP,XTEMPl,XTEMP2tFL0AT 
INTEGER*2 NUM 

DIMENSION KEY(2) ,ALPHA(5),NUM(4) 

DIMENSION XTEMP(8)tTEMPD(l8),TITLE(18)»TEMPl( 12) 

DATA AST4/4H****/ tBLANK/4H / » 00L/4H$ $$$/ 



2 

11 

21 

31 

41 

51 

61 

813 

900 

901 

902 



FORMAT! 18A4, 2A4) 

FORMAT! 12A4,2X,A4) 

FORMAT! 12A4t2X,2A4) 
F0RMAT!A4,I4,4A4, A4,2I10) 
F0RMAT!2A4, 5F4.2) 
F0RMAT!A4, F10.0,2F4.2) 
FORMAT! A4,6X, 14, F4.0» 214) 
F0RMAT!4! 12,16,18) ) 



FORMAT! 
FORMAT! 
FORMAT ! 



• ',///» KEY = • ,2A4,T20, 18A4) 

T59, 14) 



• • , 12A4,T51, A4. 



O' , TIO, • POP'I’ nAmE' ;T49, ' MNEMONIC 



,T59, 'POD #•/) 



903 

904 

905 

906 



908 
9 09 



910 



911 

912 
914 



FORMAT! * 1* ,T32, 'FILE CONVERSION* ) 

FORMAT! • O' , TIO, 'CONSIGNEE NAM E ' , T49 , ' MNEMONI C ' , T62 , ' CON #'/) 
FORMAT!' ', 12A4,T51,2A4,T62,I4) 

FORMAT! 'O' ,T33, 'FORECASTED EXPONENTIAL STOWAGE LOSS ' , 

* • MAX BOCK' , /, 

1' CONTAINER ' ,T33, 'CONTAINER SMOOTH I NG' , 22X ,' PROB ',/ , 

2' TYPE POD BREAKEVEN UTILIZATION PARAMETER'/) 

FORMAT! • ', 3X,A4,5X,A4,6X,I4,9X,F4.2,10X,F4.2,10X,I4,F14.3) 
FORMAT! 'O', * FORECASTED EXPONENTIAL FORECASTING',/, 

1 ' CONTAINER SMOOTHINC 

2 ADJUSTMENT',/, 

3' POD CUBE PARAMETER FACTORS') 

FORMAT! 'O' ,T12, 'CONTAIN. CONTAIN. MAX. MAX.'/ 

1' CARRIER SIZE DESIG. CUBE WE IGHT ' ,T51, ' CONT. H 

2GR0UP' ) 

FORMAT! • ' ,2X,A4, T14 , 1 4, T25 , A 4 , T34, 1 4 , T42 , 15 , T52 , 1 4 , 1 10) 

FORMAT! • ' , A4,3X,F8.0,7X, • F4.2,8X,F4.2) 

FORMAT! ' O' ,T7, ' MINIMUM' ,/, T7, 'ADVANCE' ,T52, 'RESERVE' / 

1T7, 'BOOKING DISTRIBUTION DISTRIBUTION RELEASE'* 



/,' POD !NON-RES) 



RANGE' 



915 

999 



3T37, 'TYPE' ,T 52, ' TIMES ' ) 

FORMAT!' ',A4,T7 , I 4 , T21 , F4. 0 , T3 7 , 1 4, T52 , I 4) 

FORMAT!' NUMBER OF P0DS=',I3,/, ' NUMBER OF CONSIGNEES =',I4,/, 

1 ' NUMBER OF CONTAINER TYPE S= ' , 14, / , 

2 ' NUMBER OF CONTAINER GR0UPS=*,I4) 



WRITF!6.903) 



123 



C READ PORT names and MNEMONICS FILE. KEY 1000 

R^oTSt 2 ) ( ( TITLE! I ) , I =1 ♦ 18 ) , K EY ) 
WRITE(6t900 )KEY, title 

12 ^EA0(5»21) ( (TEMPUI ) »I = lfl2) ,TEMP2) 

IF(TEMP1( 1) .EQ.AST4)G0 TO 20 

NP0D=NP00+1 

P0DN(NP0D)=TEKP2 

KiTE(6,901) ((TEMPKI) ,1 = 1, 12 ) , PODN ( NPOD ) ,MPOD ) 
GO TO 12 

C READ SERIALIZED MNEMONIC AND RANK FILE. 

20 NC0N=0 

WRITE(6,710) 

710 FORMAT!///, ' 

WRITE!6,715) „ „ r. 

715 FORMAT!* POD CONSIGNEE 8 6 P 

714 READ!24,711 ,END=712) ALPHA, NUM 

711 F0RMAT!A3,2!A4,A2),4A2) 

WRITE!6,7l3) ALPHA, NUM 

713 FORMAT ! IX, A3, 2X, A4,A2,8X, A4 , A2 , 3X, 41 7 ) 
NC0N=NUM!1) 

GO TO 714 
CONTINUE 



CONSIGNEE DATA*//) 



SERIAL NUMBERS’, 



712 

C 

C READ 



32 



400 
81 11 



C 

c 



CONTAINER DESCRIPTION FILE. KEY 3000 
NCNT=0 

READ!5"2)!!TITLE1I),I=1,18),KEY) 

WRITE!6,900)KEY, TITLE 

READ!5?^1)! ItEMPUI) ,I = 1.6),TEMP2,TEMP3,TEMP4) 

IF!TEMP1 ! 1) . EQ.AST4) GO TO 400 

NCNT=NCNT+1 

CN!NCNT)=TEMP2 

MC!NCNT)=TEMP3 

MW!NCNT)=TEMP4 

KCNTRG!NCNT) =1 , ^ 

WRnE?6^9U)^TEMPUu!TEMPU2)7CN!NCNT),MC!NCNT),MW!NCNT),NCNT, 

KCNTRG!NCNT) 

’GO TO 32 
CONTINUE 

FORMAT ! ^ Vile* ,57X,*5*,5X,2A4) 

WRITE! 7, 813 ) !KCNTRG! I ) ,MC! I ) , MW ! I ) ♦ 1 = 1, NCNT) 

UTILIZATION, AND BOOKING PARM/STAT FILE 



READ CONTAINER BREAKEVEN, 

40 DO 45 1=1, NCNT 
DO 45 J=1,NP0D 
XTEMP2=FL0AT!MC! I ) )♦! .5) 

BP!I, J)=IFIX!XTEMP2) 

SAF! I, J)=FLOAT!MC!I ) )*! 

CFUT! I , J)=.8 
XCMXLB! I ,J)=1.0 
CUESP!I, J) = .5 ^ , 

READ!5,2)!!TITLE! I) ,1=1, 

WRITE!6 ,900)KEY,TULE 
READ!5,41) TEMP2,TEMP3, 

IF!TEMP2.EQ. AST4) GO TO 
DO 46 1=1, NCNT 
IF!TEMP2.EQ.CN! I ) )G0 TO 47 
CONTINUE 
GO TO 43 
CONTINUE 

DO 48 J = 1,NP0D , ^ 

IF!TEMP3.E0.PGDN! J) ) 

CONTINUE 

WRITE!6,44) TEMP2,TEMP3 . 

FORMAT!' FATAL ERROR IN MAIN 44 *,2A4) 
STOP 



45 



42 



46 

47 



48 

43 

44 



, 1 ) 



18) , KEY) 

!XTEMP! I ) ,1=1,5) 
500 



GO TO 49 



12A 



49 TEMP2=MC(I) 

XTEMP1=XTEMP( 1)«FL0AT(TEMP2J 
8P(I, J)=IFIX(XTEMP1) 

; NOTE: SAF( ) IS INTEGER. 

SAFI I, J)=FL0AT(TEMP2)*XTEMP(4) 
CFUT(I , J)=XTEMP(2) 

XCNIXLBI I , J)=XTEMP(5) 

CUESPI I, J)=XTEMP(3) 

GO TO 42 
500 CONTINUE 

WRITE(7,8112)KEY 

8112 FCRMATC OCBUBPS FI L E • t 53X , ' 5 ' 



U(^DUDKi r 1 L t • I DJA t ' 3 • » 5X » 2 A4 ) 

WRITE! 7,823) ( (BP( I, J ) , C FUT( I , J ) , CUESP ( I , J) ,SAF( I , J) ,XCMXLB( I , J) 
I=1,NCNT) , J=1,NP0D) 



823 F0RMAT(3(I8,2F4.2,I4,F4.2) ) 
WRITE(6, 906) 



C 

C 



DO 501 J=1,NP0D 

WRITE (6, 908) (CN( I ) .POON( J) ,BP( I , J) ,CFUT( I , J) , CUESP ( I , J) ,SAF( I , J 
1 XCMXLBdtJ) ,I = 1,NCNT) 

501 CONTINUE 



READ CONTAINER FORECAST STATISTICS/PARAMETERS FILE 
50 DO 55 J=1,NP0D 
CFCUBI J )= 6.0 
CFESPI J)=.5 
CFAF( J )=1.0 
55 CONTINUE 

READ! 5, 2 ) ((TITLE(I),I=1,18),KEY) 
WRITE(6,900)KEY, TITLE 
WRITF(6,909) 

52 READ(5,51) TEMP2, (XTEMPI I ) , 1=1 ,3 ) 

IF(TEMP2.EQ. AST4) GO TO 600 
DO 56 J=1,NP0D 



»A4) 



IF(TEMP-2.EQ.PCDN( J) ) GO TO 57 

56 CONTINUE 
WRITE(6,54) TEMP2 

54 FCRMATC FATAL ERROR IN MAIM- 54 • 

STOP 

57 CFCUB(J)=XTEMP(1) 

CFESPI J)=XTEMP(2) 

CFAFI J)=XTEMPI3) 

GO TO 52 

600 WRITE I 6, 912) IPODNIJ) ,CFCUBIJ) ,CFESPIJ) , 
1 CFAFIJ ) ,J=1 ,NPOD) 

WRITE! 7, 8113 )KEY 

8113 FORMAT! « .OCFSP F ILE • , 54X, ' 5* , 5X , 2A4) 
WRITEI7,833) ICFCUB I I ) , CFESP I I ) , 

1 CFAFI I ) ,I=1,NP0D) 



C 

C 



833 FORMAT! 



4IF10.0,2F4.2) ) 



READ CONTAINER BOOKING HORIZON AND SUCCESS RATE FILE 
60 DO 65 I=1,NP0D 
CRELTI I )=0 
CSTRTI I ) =2 
CRNGI 1 )=1 
65 CDSTYPI I )=0 

REA0I5,2)IITITLEI I) ,1 = 1,18) ,KEY) 



WRITEI6,900)KEY, TITLE 
62 READI5,61) TEMP5 , TEMP6 , XTEMPl , TEMP2 , TEMP3 



IFITEMP5.EQ.AST4) GO TO 70 
DO 66 I=1,NP0D 

IFITEMP5.EQ.P0DNI I) )G0 TO 67 

66 CONTINUE 
WRITEI6,68) TEMP5 

68 FORMAT!* FATAL ERROR IN MAIN 68 ',A4) 
STOP 

67 CSTRTI I )=TEMP6 
CRNGI I )=XTEMP1 
CDSTYPI I )=TEMP2 
CRELTI I )=TEMP3 
GO TO 62 
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70 CONTINUE 

WRITi(6l915) (PODNin , CSTRT ( I ) ,CRNG( I ) , C DSTYP ( I), 

1 CRELTI I ) ,1=1 ,NPOD) 

WRITE(7,8114) KEY ^ ^ 

8114 FOPKIATC OCBHSR F ILE • , 54X , • 5 • , 5X , 2A4) 

WRITE(7,843) ( CSTRT ( I ) ,CRNG ( I ) , 

1 CDSTYP(I),CRELT(I) ,I=1,NP0D) 

843 F0RMAT(6(I4.F4.0,2T2) ) 

WRITE! 6, 999) NP0D,NC0N,NCNT,NCNTRG 

STOP 

END 

^/G0.FT24F001 DD DSNAME=F0826 . MT024 , UNI T=2314 , VOL=S ER=LI NDA , 
// DISP=(OLD,KEEP),LABEL=(,,t IN) 

//GO.SYSIN 00 * 



PORT NAMES AND MNEMONICS FILE 



DESCRIPTION F 



CONTAINER 
AML 200 
AML 40 
APL 20 
APL 40 
MTSN 20 
MTSN 24 
MTSN 40 
PFEL 20 
PFEL 40 
SLND 35 
SSC 20 
SSC 40 
STLZ 27 
STLZ 40 
USLX 20 
USLX 40 

9$C 3$C 

container breakeven and 

VOLUME FORECAST 
BOOKING FILE 

f* 



ILE. 

AMID 


1119 


40000 


AM2D 


2565 


46000 


ARID 


1 134 


40300 


AP2D 


2394 


45000 


MTID 


1100 


40000 


MT2D 


1427 


46200 


MT3D 


2386 


46200 


PFID 


1157 


40300 


PF2D 


2398 


46000 


SLID 


2090 


45000 


SSID 


1144 


38000 


SS2D 


2383 


46000 


STID 


1791 


46000 


ST2D 


2381 


46000 


USID 


1105 


40000 


US2D 


2398 


46000 


UTILIZATION PARAMETERS 



R A3 
RJl 
RJ3 
SAl 
TA2 
UBl 
UC2 
UD6 
UL7 
UMl 
UM4 
UQ2 
XE2 



APPENDIX C 



Simulation Program 
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COMMON VARIABLES 



IMPLICIT INTEGER*2 (A-Z) 



INTEGER*A MC,MW,BP 

C0MM0M/CNT3LK/MC( 20) t MW ( 20 ) , B P ( 2 0 , 30 ) t S A F ( 20 , 30 ) , NCNT , N POD , NC ON , 

1 MCNTRG.KCNTRG(20) 

THIS BLOCK CON'^AINS COMTAU'ER TYPE INFORMATION, NUMBER OF POO'S AND 
CONSIGNEES. 

MC(T) = THE MAXIMUM CUBF (CUBIC FEET) OF THE (I)TH CONTAINER TYPE. 
MW(I) = THE MAXIMUM CARGO WEIGHS FOP THE (I)TH CONTAINER TYPE. 

( POUNDS ) 

BP(I,J)= THE BREAKEVEN POINT FOR THE (I)TH CONTAINER TYPE DESTINED 
TO THE (J)TH POD. (CUBIC FEET) 

SAF(I,J)= STOWAGE ADJUSTMENT VOLUME FOR THE (I)TH CONTAINER TYPE 

AND (J)TH POO. THIS VOLUME IS SUBTRACTED FROM THE THE VOLUME 
OF the CONTAINER TO GIVE THE STUFFABLE VOLUME OF THE CONTAINER. 
(CUBIC FEET) 

NCNT = NUMBER OF CONTAINER TYt>ES. 

NPOD= NUMBER OF POD'S. 

NCON= NUMBER OF CONSIGNEES. 

NCN"^RG = THE NUMBER OF CONTAINER GROUPS WHICH IDENTIFY STUFFING 
PR I OR IT I ES/ SEQUENCES. 

KCNTRG(I) = THE CONTAINER GROUP OF CONTAINER TYPE (I). 

THE CONTAINER GROUP NUMBER MUST BE IN THE RANGE OF 1 “^O 
(NCNTPG). LOWER GROUP NUMBERS WILL BE STUFFED BEFORE 
HIGHER GROUP NUMBERS IN EACH CHAPTER OF THE STUFFING LISTS. 



REAL *4 CFCUB.CFAF.CFUT, CUESP,CFESP,XADJ 
I NT EGER *4 TO tcSC , tOTCSP , CCCUB , CV P B 

COMMON/STATBK/ CFCUB(30 ),CCCUB(30 ),CFUT(20,30 ) , CUES P ( 20 , 30 ), 

1 CFESP(30 ),CVPB(20,30 ),XADJ(200 ),CFAF(30 ) , TOTCSC ( 1 500 ), 

2 TCTCSP(30 ) 

this block contains the general OPERATIONAL STATISICS. 

CFCUB(I) IS THE FORECASTED DAILY CUBE FOR THE (I)TH POD. 
(CONTAINERIZABLE SHIPMENTS) 

CCCUB(I) IS THE CUMULATIVE CUBE THAT HAS ARRIVED SINCE THE FIRST 
OF THE 7 DAY PERIOD FOR THE ( I ) TH POD. 

(THIS IS USED TO COMPUTE CFCUB(I).) 

(CONTAINERIZABLE SHIPMENTS) 

CFUTdtJ) IS THE FORECASTED CONTAINER UTILIZATION PROPORTION 
FOR THE (I)TH CONTAINER TYPE GOING TO THE ( J ) TH POD. 
CUESP(I,J) IS THE CONTAINER UTILIZATION EXPONENTIAL SMOOTHING 

PARAMETER (ESP) FOR THE (I)TH CONTAINER TYPE GOING TO 

THE (J)TH POD. 

CFESP(J) IS THE FORECASTING ESP FOR CONTAINER SHIPMENTS 
GOING TO THE (J)TH POD. 

CVPBd.J) IS THE TYPE (I) CONTAINER VOLUME PRESENTLY BOOKED FOR 
THE (J)TH POO, BUT NOT AS YET STUFFED. 

(CUBIC FEET). 

XADJ(I)= THE BREAKEVEN POINT ADJUSTMENT FACTOR FOP THE (DTH 
STUFFING LIST. 

(USED WITH THE STUFFING LISTS) 

CFAF(J)= ADJUSTMENT FACTOR FOR CONTAINER SHIPMENTS FORECASTS, 
(J)TH POD. 

TOTCSCd) IS THE TOTAL CONTAINERIZABLE SHIPMENTS CUBE IN ^HE 
d)TH CONSIGNEE STACK. 

(ON THE FLOOR A^ CFD) 

(CUBIC FEE^) 

THTCSPd) IS THE VOLUME OF CONTAINERIZABLE SHIPMENTS ON THE 

CFD FLOOR (UNSTUFFED) TENTATIVELY DESTINED FOR THE (I)TH POD. 
(CUBIC FEET) 
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COMMON/ CSBLK/ CS F ( 1 500 ) , CSL ( 1 500 ) , SLP ( 10 , 30 ) . NS L VI 
THIS BLOCK CON'^AINS POIN'^ERS Tq THE CONTA I NER I ZA6LE SHIPMENTS STACKS, 
AND POINTERS TO THE STUFFING LISTS. 

CSF(I) POINTS TO THE FIRST RECORD IN THE STACK OF THE 
( I )TH CONSIGNEE. 

CSL(I) POINTS TO THE LAST RECORD IN THF STACK OF THE 
( I )TH CONSIGNEE. 

SLP(L,J) POINTS TO THE (L)TH CHAPTER (LEVEL) CF THE STUFFING LISTS 
F-^P THE (J)TH POD. (THESE POINTERS ARE ROTATED WITHIN EACH 
CHAPTER DURING EXECUTION OF THE PROGRAM.) 

NSLVL = NUMBER CF STUFFING LIST CHAPTERS (LEVELS). 



COMMON/SCBLK/ SCF(20 ,30 ),SCL(20 ,30 ),CLSCPT 
THIS BLOCK CONTAINS THE POINTERS FOR THE STUFFED CONTAINER STACK. 
SCF(I,J) POINTS TO THE FIRST RECORD IN THE STACK OF THE (I)TH 
CONTAINER TYPE FOR '^HE (J)TH POD. 

SCL(1,J) POINTS TO THE LAST RECORD IN THE STACK OF THE (I)TH 
CONTAINER type FOR THE (J)TH POD. 

CLSOPT IS THE PARAMETER WHICH SUPPRESSES THE PRINTING OF THE 
CONTAINER LIFT REPORT. THE REPORT WILL BE SUPPRESSED IF 
THIS PARAMETER HAS A VALUE GREATER THAN ONE. 



COMMON/CVCBLK/ CVF,CVL 

THIS BLOCK CONTAINS THE POINTERS FOR THE CONTAINER VESSEL CALL STACK. 
CVF POINTS TO the first RECORD IN THE STACK. 

CVL POINTS TO THE LAST RECORD IN THE STACK. 



COMMON/TMPTCN/ TIME, PTCN, PTCNC 
THIS BLOCK CON'^AINS THE CURRENT DAY, AND COUNTERS. 

■TIME = CURRENT POINT IN TIME. (MEASURED IN JULIAN DAYS) 
PTCN= the counter FOR PARCELS. 

P-^CNC= CONTAINER COUNTER. 



COMMON/RCSTBK/ NXTRP , R ELRP , NXT PP , RECS I Z , MXUR EC , REC ( 32000) 

THIS BLOCK CONTAINS RECORD STACK INFORMATION FOR SHIPMENT RECORDS. 
NXTRP POINTS TO NEXT AVAILABLE RECORD AFTER THE SUBROUTINE NXTREC 
IS CALLED. 

RELRP POINTS TO THE RECORD WHICH IS TO BE RELEASED BACK INTO 
THE RECORD POOL BY SUBROUTINE RELREC. 

PECSIZ= SIZE OF EACH RECORD IN RECORD POOL. 

M.XUREC = MAXIMUM NUMBER CF RECORDS USED DURING EXECUTUION. 

FEC(.) IS THE RECORD LOCATION ARRAY. 

NXTPP POINTS TO THE NEXT EMPTY RECORD IN THE POOL. 

(THIS VARIABLE IS FOR HOUSE KEEPING PURPOSES; IT IS NOT TO BE 
USED WHEN REQUESTING OR RELEASING RECORDS.) 
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REAL*4 CRNGtXCMXLB 

imteger*4 seed 

CQMMON/PROBBK/ SEED,CRNG(30 ) t XC M XL B ( 20 t 30 ),CSTRT(30 ), 

1 CDSTYP(30 ),CPELT(30 ) 

THIS BLOCK CONTAINS PARAMETERS FOR THE BOOKING OF CONTAINERS. 

(RESERVE CONTAINERS, ASSUMING SUFFICIENT TIME, ARE 
BOOKED UPON REQUEST, WHEREAS BEYOND BASIC RESERVE CONTAINER 
BOOKING MUST GO THROUGH THE RANDOM SCREENING PROCESS 
DESCRIBED BRIEFLY BELOW.) 

SEED = RANDOM NUMBER GENERATOR SEED. 

CSTRT(I) = MINIMUM NUMBER OF DAYS IN ADVANCE OF VESSEL ARRIVAL 

AT the POE FOR WHICH BOOKINGS BEYOND THE BASIC RESERVE CAN BE 
MADE FOR THE (I )TH POD. 

CRNG(I) =RANGE OF BOOKING DISTRIBUTION FOP SPACE BEYOND THE PESE8VE. 
XCMXLB(J,I)= THE MAXIMUM BOOKING PROBABILI'^Y FOR BEYOND BASIC 
RESERVE TYPE (J) CONTAINERS DESTINED TO POD (I). 

FOR CONTAINERS IN ADDITION TO THE BASIC RESERVE, THE 
PROBABILITY OF OBTAINING A BOOKING ON A VESSEL CARRYING 
TYPE (J) CONTAINERS DESTINED FOR THE ( I ) TH POD RANGES 
LINEARLY FORM 0 TO XCMXLB(J,I) WHEN THE PFQUES'^S ARB 
MADE BETWEEN THE DAYS (CSTRT(D) AND (CSTRT ( I ) +CPNG( I ) ) . 
FOR REQUESTS IN ADVANCE OF (CSTRT ( I ) +CRNG( I ) ) DAYS, 

THE PROBABILITY OF BOOKING EQUALS XCMXLB(J,I). 

FOR REQUESTS LESS THAN CSTRT(I) DAYS, THE PROBABILITY OF 
BOOKING EQUALS ZERO. 

CDSTYP(I) INDICATES THE TYPE OF DISTRIBUTION TO BE USED FOR THE 

(I)TH POD IN DETERMINING WHA'r PROPORTION OF THE AVAILABLE 
BEYOND BASIC RESERVE CONTAINERS CAN BE CURRENTLY BOOKED 
ON THE VESSEL. 

(THIS DISTRIBUTION COMES INTO PLAY ONLY AFTER IT HAS 
BEENED DETERMINED THAT A BOOKING WILL TAKE PLACE.) 

IF (CDSTYP=1), THEN THE AMOUNT OBTAINABLE IS DETERMINED 
FROM A UNIFORM RANDOM DISTRIBUTION OF THE TOTAL 
CONTAINERS AVAILABLE. 

IF (CDSTYP=0), THEN AMOUNT OBTAINABLE IS EQUAL TO THE 
THE CONTAINERS AVAILABLE. 

CRELT(I) = THE BASIC RESERVE CONTAINER RELEASE TIME. 

BASIC RESERVE CONTAINERS NOT BOOKED ARE 

RELEASED AND NO LONGER AVAILABLE FOR BOOKING CRELT(I) 

DAYS BEFORE THE VESSEL'S ARRIVAL AT THE POE DESTINED 
FOR THE ( I I'^H POD. 



COMMON/CDELBL/ CDELC^, CDELTS, CDELTC, CSATT, CTDE L , MXADV S , MA SDVA 
THIS BLOCK CONTAINS DISPATCH AND STUFFING DELAY PARAMETERS. 
CDELCT= CARRIER Tc CFD DELAY. 

CDELTS= STUFFING AND DOCUMENTATION DELAY AT CFD. 

CDELTC= CFD tq CARRIER DELAY. 

CSATT= CDELTS + CDELTC. (STUFFING AND TRANSFER TIME.) 

CTDEL= CDELTS + CDELTC + CDELCT. ( CARPI ER-CFD-CARP lER TIME). 

THIS FIGURE REPRESENTS THE MINIMUM AMOUNT OF TIME IN WHICH 
A CONTAINER CAN BE DISPATCHED FROM THE CARRIER, TRANSFERED 
TO CFD, STUFFED, AND RETURNED TO THE CARRIER FOR LIFT. 
MXADVS = the MAXIMUM NUMBER OF DAYS IN WHICH A CONTAINER CAN BE 
STUFFED IN ADVANCE OF It$ LATEST STUFFING DATE. 

MASDVA = MXADVS + CDELTC + CDELTS = MXADVS + CSATT 

THIS VARIABLE REPRESENTS THE MAXIMUM NUMBER OF DAYS 
IN WHICH A container CAN BE STUFFED IN ADVANCE OF THE 
VESSEL LOADING (ARRIVAL) DATE. 



COMMON/CTPLBK/ CNTPOL ( 20 , 30 ) 

THIS BLOCK CONTAINS DATA CONCERNING THE NUMBER OF EMPTY CONTAINERS 
IN the CFD PnOL. 

CNTPOL(I,J) = THE NUMBER OF TYPE (I) CONTAINERS IN THE CFD POOL 
FOR POO (J). 

■^HE POD IS DISTINGUISHED IN THE POOL IN ORDER TO DISTRIBUTE THE 
AVAILABLE CONTAINERS ON AN EQUITABLE BASIS. IF THIS WERE 
NOT DONE, then THE POD LOADED AT THE BEGINNING OF THE DAY 
WOULD HAVE AN ABUNDANT SUPPLY OF CONTAINERS, WHERE AS 
THE POD STUFFED AT THE END OF the DAY WOULD BE SHORTED. 
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TEMPASfMNAGE, MXAGE 



PEAL=«'8 - 
INTEGER*^ 



jjt 

* 



COMMON /OPSTAT/ SCCB( 30t 4)»SCCB'’'( 30 » 4),MXCB( 30* A), 

30, A),TSAGE( 30, 4),TWT( 30, 4), 



) , 

4) 



MXCBT( 30, 4) ,TAGE( 

TWTT( 30, 4), 

* TEMPAS( 4),NSHP( 30, 4),teMPCB( 4),TEMPWT( 4),TEMPAG( 4 

* MNAGE( 30, 4),MXAGE( 30, 4),TEMPNS( 4),TEMPMA( 4),TEMPXA( 

* CONGRPdSOO) 

THIS BLOCK CONTAINS POD OPERATIONS STATISTICS ACCUMULATORS. 

SCCB(J,K)= SINGLE CONSIGNEE CARGO VOLUME STUFFED FOR POD U), 
CONSIGNEE GROUP (K). (CUBIC FEET) 

SCCBT(J,K)= CONTAINER VOLUME OF STUFFED SINGLE CONSIGNEE VANS FOR 
POD (J), CONSIGNEE GROUP (K). (CUBIC FEET) 

TWT(J,K)= TOTAL CARGO WEIGHT STUFFED INTO BOTH SINGLE CONSIGNEE 

AMD MIXED VANS FOR POD (J), CONSIGNEE GROUP (K). (CUBIC FEE’) 
TWTT(J,K)= total maximum weight capacity of VANS STUFFED WITH 
CARGO FOR POD (J), CONSIGNEE GROUP (K). (POUNDS) 

FOR MIXED VANS, CAPACITY WAS ALLOCATED ACCORDING TO "^HE 
VOLUME OF CARGO INSIDE THE VAN FOP EACH CONSIGNEE GROUP. 
NSHP(J,K)= total number OF SHIPMENTS STUFFED FOR POD (J), CONSIGNEE 
GROUP (K) 



MINIMUM SHIPMENT 
(K) . 

MAXIMUM SHIPMENT 
(K) . 

AGE AT STUFF 



AGE AT STUFF FOR POD(J), CONSIGNEE 



AGE AT STUFF FOR POD(J), CONSIGNEE 
OF SHIPMENTS FOR POD (J), CONSIGNEE 



MNAGE( J,K)= 

GROUP 

MXAGF( J,K)= 

GROUP 

TAGE(J,K)= TOTAL 
GROUP (K). 

TSAGE(J,K)= TOTAL SQUARED 
CONSIGNE GROUP (K). 

MXCB(J,K)= CARGO VOLUME STUFFED IN MIXED 
CONSIGNEE GROUP (K). (CUBIC FEET) 

MXCBT(J,K)= TOTAL MIXED VAN CAPACITY OF CONTAINERS STUFFED WITH 
CAPGO FOR POD (J), CONSIGNEE GROUP (K). (CUBIC FEET) 

FOR MIXED VANS, CAPACITY WAS ALLOCATED ACCORDING TO THE 
VOLUME OF CAPGO INSIDE THE VAN FOR EACH CONSIGNEE GROUP. 



AGE AT stuff of SHIPMENTS FOR POD (J), 

CONSIGNEE VANS FOR POD (J) 



THE FOLLOWING VARIABLES ACCUMULATE DATA FOR SHIPMENTS STUFFED INTO 
EACH CONTAINER; WHEN THE CONTAINER IS CLOSED OUT, THESE DATA AP 
ADDED TO THE ABOVE VARIABLES. THE REASON FOR THIS IS THAT UNTI 
THE VAN IS CLOSED OUT, IT IS NOT KNOWN WHETHER THE VAN REMAINS 
SINGLE CONSIGNEE. 



TEMPNS(K)= 
TEMPCB(K )= 
TEMPWT(K ) = 
TEMPAG(K)= 
T EMPAS (K ) = 
TEMPMA(K)= 
TEMPXA(K) = 
CONGRP( I ) = 



NUMBER OF STUFFED SHIPMENTS, CONSIGNEE GROUP 
TOTAL STUFFED CAPGO VOLUME, CONSIGNEE GROUP 
TOTAL STUFFED CARGO WEIGHT, CONSIGNEE GROUP 
TOTAL STUFFED SHIPMENT AGE, CONSIGNEE GROUP 
TOTAL SQUARED SHIPMENT AGE, CONSIGNEE GROUP 
MINIMUM SHIPMENT AGE, CONSIGNEE GROUP (K). 

MAXIMUM SHIPMENT AGE, CONSIGNEE GROUP (K). 

THE CONSIGNEE GROUP WHICH CONSIGNEE (I) FALLS IN. 



(K) 
(K) . 
(K) . 
(K) . 
(K) . 



(CU FT) 
(LBS ) 



INTEGER*4 QLVAD, QDI FF , ONVAP 
REAL«4 XTBVS.XTBVSS 

COMMON/OPSTTl/ QD I FF , QNVAp ( 30 ) , QL VAD ( 30 ) , XTB V S ( 30 ) ,XTBVSS(30) 
THIS BLOCK CONTAINS POD OPERATIONS STATISTICS ACCUMULATORS. 

QNVAP( J)=NUMBER OF VESSEL ARP I VAL/DEPARTURES (LIFTS) FOR POD (J). 
QLVAD(J)= DA'^E OF LAST LIFT, POD (J). 

XTBVS( J)=TOTAL TIME BETWEEEN LIFTS, POD (J). 

XT6VSS(J)= TOTAL SQUARED TIME BETWEEN LIFTS. POD (J). 

QDIFF= temporary STORAGE. 



r-m 
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PEAL*8 QQCVS.QQCVM 

tmteger*4 oottbl » 0"^s tbl » qotc a t qot sc a 

COMMON/ 0PSTT2/QQC vs ( 30,20) , VM ( 30 , 20 ) , OQTTBL ( 3^ 

1 OTSTB' ( 30 t 20 ) ,QQTC A( 30 ) , QQTSC A( 30 ) , OQTCL ( 30 ) , 

2 OOSS ( 30,20), QOSM( 30,20) ,OQNS ( 30,20) , QQNM( 30,20 ) , 

3 QQNL(30,20) ,QQDLL(30,20) 

FHIS BLOCK CONTAINS POD OPERATIONS STATIS ICS 

OOCVS(J,I)= TOTAL CARGO VOLUME STUFFED INTO 
^ vUs FOR POD(J), container TYPE (I).^ 

OQCVM(J,I)= TOTAL CARGO VOLUME STUFFED I ^ ■ EE ctI 
for pod (J), CCMTAINER type (I). t^^UBlC FEET) 

ogT'BL(j,i)= total time between lifts for container type (I 

POD (J). 



ACCUMULATORS . 
SINGLE CONSIGNEE 
(CUBIC FEET) 
MIXED CONSIGNEE 



QTS"‘BL( J,I )= TOTAL 
POD (J). 



SQUARED time BETWEEN LIFTS FOR CONTAINER 



OQ~CA(J)= TOTAL CONTAINER AGE, POD (J). 

OQTSCA(J)= TOTAL SQUARED CONTAINER AGE, POD (J). 

QQTCL( J ) =TQTAL CONTAINERS LIFTED, POD (J). 

OOSS(J,I)= NUMBER OF SHIPMENTS STUFFED INTO SINGLE CONSIGNEE 
POD (J), CONTAINER TYPE (I). 

QQSM(J,I)= NUMBER OF SHIPMENTS STUFFED IN MIXED VANS, POD(J) 
CONTAINER TYPE ( I ) . 

OQNS(J,I)= NUMBER OF STUFFED SINGLE CONSIGNEE VANS, POD (J), 
CONTAINER TYPE ( I ) . 

CQNM(J,I)= NUMBER OF MIXED VANS, POD (J), CONTAINER TYPE (I) 
QQNL(J,I)= NUMBER OF LIFTS, POD(J), CONTAINER TYPE (I). 
QODLL(J,I)= DATE OF LAST LIFT, ROD (J), CONTAINER TYPE (I). 



VANS 

), 

■■YPE ( 1 ) , 
VANS , 
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STACK FIELDS 



rONTAIMER VESSEL SECTION STACK 

0 POINTER TO next RECORD. 

1 ACTUAL NUMBER OF CONTAINERS 

DEPOT (CFD), BUT NOT STUF 

2 estimated date of ARRIVAL. 

3 NUMBER OF CONTAINERS RESERVE 

THESE CONTAINERS, REFEPED 
AVAILABLE FOP BOOKING. TH 
BY THE CRELT PARAMETER. 

4 PCD (SEQUENCE NUMBER). 

5 type of CONTAINERS (SEQUENCE 

6 NUMBER OF IMMEDIATELY FOLLOW 

7 MAXIMUM NUMBER OF CONTAINERS 

THESE CONTAINERS ARE REFER 
BEYOND THE BASIC RESERVE, 
SCREENING ALGORITHM OF THE 

8 VOYAGE NUMBER. 

9 ACTUAL NUMBER OF CONTAINERS 

WILL BE AVTALABLE FOR LIF 



BOOK 


ED 


FOR 


THE CONT 


AI 


NER 


FRE 


IGHT 


FED 


AS 


YET 


• 










D DI 


PEC 


TLY 


FOR THE 


ST 


UFFI 


NG 


STAT 


TO A 


S THE 


BASIC RES 


ER 


VE, 


ARE 


DIR 


EIP 


AVA 


(LABILITY IS 


R 


ESTP 


ICT 


ED 



ONLY 



NUMBER) . 

INC- RECORDS WHICH CONCERN SAME VESSEL 
AVAILABLE BEYOND THE BASIC RESERVE. 
ED TO AS THE CONTAINERS (SPACE) 

AND ARE BOOKED THROUGH THE RANDOM 
BOOKING ROUTINE. 



BOOKED 

T. 



FOR CFD WHICH ARE STUFFED AND 



STUFFED CONTAINERS: 

0 POINTER TO next RECORD. 

CONTAINER NUMBER (SEQUENCE NUMBER). 
tentative VOYAGE NUMBER. 
actual cargo WEIGHT (HUNDREDWEIGHT) 
CUBE (CUBIC FEET ) . 



1 

2 

3 

4 

5 

6 

7 

8 
9 



ACTUAL CARGO 
DATE STUFFED, 
ARRIVAL date 
TOTAL AGE AT 
TOTAL NUMBER 
TO'*-AL NUMBER 



AT YARD. 

STUFF OF DATED SHIPMENT SEGMENTS 
OF SHIPMENT SEGMENTS. 

OF DATED SHIPMENT SEGMENTS. 



CONtaINERIZABLE SHIPMENTS SEGMENTS STACK: 

0 POINTER TO NEXT RECORD. 

1 SHIPMENT NUMBER (SEQUENCE NUMBER). 

(NEGATIVE IF NOT THE LAST SEGMENT OF A SHIPMENT) 

2 CUBE (CUBIC FEET). 

3 WEIGHT (POUNDS). 

4 SHIPMENT TYPE 

5 date of arrival at terminal. 

6 TENTATIVE POD (SEQUENCE NUMBER). 



ooooonooooooo 
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SIMULATION PROGRAM DECK 

(PROGRAM IS LOADED ON TO A DISK FILE) 

//B0X$101N JOB (0826, 0232FP, 55HJ) , 'J.P. HYNES' ,TIME=1 
//STEP2 EXEC PGM=IEHPROGM 

//SYSPRINT OD SYSOUT = A,SPACE=(TRK,( 1,1) ,RLSE» 

//DDl OD UNIT=2314,V0L=SER=0UFFY,DISP=SHP 

//SYSIN DO * 

SCRATCH DSN AME= F0826. CSSM ,V0L=23 14=DUFFY, PURGE 

// EXEC FCRTHCL,COND=EVEN 
//FORT. SYSIN DD * 



MAIN PROCaRAM DECK 

CONTAINER STUFFING SIMULATION MODEL 
VERSION 1 
APRIL 1974 

DEVELOPED AND WRITTEN BY: 

PROFESSOR JAMES P. HYNES 

DEPARTMENT OF OPERATIONS RESEARCH AND ADMINISTRATIVE SCIENCES 
U. S. NAVAL POSTGRADUATE SCHOOL 
MONTEREY, CALIFORNIA 93940 



C*INPUT FILES ARE READ IN THE FOLLOWING ORDER: 

C 

C READ TRANSACTION REPORT UNIT FILE 
C READ PUN PARAMETERS AND LABEL. 

C READ ORDERED CONTAINER DESCRIPTION FILE. 

C READ CONTAINER BREAKEVEN, UTILIZATION, AND BOOKING PARM/STAT FILE 
C READ CONTAINER FORECAST ST ATIST ICS /PARAMETERS FILE 
C READ CONTAINER BOOKING HORIZON AND SUCCESS RATE FILE 
C READ ORDERED STUFFING LISTS FILE. 

C READ CONSIGNEE GROUP DATA FILE. 

C 

c 

c 



IMPLICIT INTEGER*2 (A-Z) 

C . 

REAL*8 SCCB, SCCBT,MXCB,MXCBT ,TAGE,TSAGE,TWT, TWTT 

integer*4 nshp.tempcb,tempwt,tempns,tempma,tempxa,tempag, 

♦ TEMPAS,MNAGE,MXAGE 

COMMON /OPSTAT/ SCCB( 30, 4),SCCBT( 30, 4),MXCB( 30, 4), 

* MXCBT( 30, 4),TAGE( 30, 4),TSAGE( 30, 4),TWT( 30, 4), 

* TWTT( 30, 4), 

♦ TEMPAS( 4),NSHP( 30, 4),TEMPCB( 4),TEMPWT( 4),TEMPAG( 4), 

♦ MNAGE( 30, 4),MXAGE( 30, 4),TEMPNS( 4),TEMPMA( 4),TEMPXA( 4) 

* CONGRPdSOO) 

REAL*4 AGE, STDEV, SNGL,SCC,MXC, SCCT,MXCT, WT,WTT,TC,TCT 
REAL*8 DBLE, DFLQAT,DXXX,QTSAG8 

REAL*4 QTAGE,QSCC, QMXC, QSCCT, QMXCT , QWT,QWTT 
INTEGER*4 QLVAD,QDIFF,QNVAP 
REAL*4 XTBVS,XTBVSS 

COMMON/OPSTTl/ QDIFF , QNVAP( 30 ) ,0LVAD(30) ,XTBVS(30) ,XTBVSS(30) 
INTEGER*4 QQTTBL , QTSTBL, QQTC A , QQT SC A 
REAL*8 QQCVS.QQCVM 

COMMON/OPSTT2/OQCVS( 30,20) ,QQCVM( 30.20) ,QQTTBL( 30, 20) , 

1 QTSTBU 30,20) ,QQTCA( 30) , QQTSC A( 30 ) ,QQTCL( 30) , 

2 QQS S (30, 20 ) ,QQSM( 30,20 ) ,QQNS( 30,20) ,QQNM(30,20) , 

3 QQNL(30,20) ,QQDLL(30,20) 

INTEGER*4 QNSHP , QQNT . QQSt 

REAL *4 XCTSC,XCTCU,XCTSCU,XCTMXU,XCTWU 
REAL*4 XQNVAP,XTIME,XAVS,XAVV, XAVW 

REAL*4 XVUl ,XVU2, XVU3,XTC1, XTC2,XTC3,XPCA,XPSDCA,XCVC 



INTEGER«4 MC.MW.BP 

C0MM0N/CNTBLK/MC(20) , MW ( 20 ) , BP ( 20 ,30 ) , S AF ( 20 , 30 ) , NCNT , NPOD , NCCN , 
1 NCNTRG,KCNTRG(20) 

REAL*4 CFCUB,CFAF,CFUT,CUESP,CFESP, XADJ 
IMTEGER*4 TOTCSC, TOTCSP.CCCUB , CVPB 



f 



ooooo o oo 
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CDELTC, CSATT, CTDEL »MXADVS,MASDVA 



COMMO.M/STATBK/ CFCUBOO ),CCCUB(30 ),CFUT(20,30 ) ,CUESP(20,30 ), 

1 CFESP(30 ),CVPB(20,30 ),XADJ(200 ),CFAF(30 ) , TQTCSC ( 1 560 )t 

2 TOTCSPOO ) 

CCMMON/CSBLK/ CSF (1500) »CSL( 1500) ,SLP( 10.30) , NSLVL 
COMMON/SCBLK/ SCF(20 ,30 ),SCL(20 ,30 ),CLS0PT 
COMMON/CVCBLK/ CVF,CVL 
CCMMON/TMPTCN/ TIME, PTCN, PTCNC 

CnMMGM/RCSTBK/ NXTRP , RE LRP , NXT PP , REGS I Z , MXUREC , REC ( 80000) 

REAL*4 CRNG,XCMXLB 
IMTEGER*4 SEED 

COMMON/PROBBK/ SEE0,CRNG(30 ) , XCMXLB ( 20 , 30 ),CSTRT(30 ), 

I CDSTYP(30 ),CRELT(30 ) 

COMMDN/COELBL/ tOELCT, COELTS, 

COMMON/CTPLBK/ CNTPOL ( 20, 30 ) 

integer*4 unit 

CGMMON/IOUNT/ UNITI30) 

REAL«4 XT1,XT2, FLOAT, XFACT 
INTEGER«4 RUN, KEY, UNT, TEMPI 
DIMENSION KEY(2) ,RUN( 2) 

INTEGER*4 AST4 
INTEGER*4 LSTREC,LOC 
INTEGER*4 TOTSHP , TOTCNR 
DATA AST4/4H****/ 

DIMENSION Z1(16),Z2(16) 

LSTREC= LARGEST BEGINNING ADDRESS OF LAST RECORD IN POOL; 

= (DIMENSION OF PEC ) -R ECS I Z + 1 
RECS IZ = 10 
MXUREC=0 

LSTREC= 80000-RECSIZ+l 
READ LOGICAL UNIT NUMBER FILE. 

DO 1 1 = 1,30 

1 UNIT(I)=0 
READ(5,2) tempi 

2 FGPMAT(A4) 

4 READ(5,3) TEMPI, I, J 

3 FORMAT! A4, 12, IX, 12) 

IF(TEMP1.EQ. AST4) GO TO 10 
UNIT! I )=J 
G'^ TO 4 

10 CONTINUE 

READ RUN PARAMETERS AND LABEL. 

IF (CLSOPT) EQUALS 1, THEN 
WILL NOT BE PRINTED. 

IF (RSLTOP) EQUALS 1, THEN 
PUNCHED ON UNIT 7. 

READ! 5, 801) NPOD , NCON.NCNT , NCNTRG , SEED , TI MLI M , CLSOPT, 

1 CDELCT, CDELTS, COE LTC,MXADVS, RSLTOP, RUN 



THE ON-LINE CONTAINER LIFT REPORT 
THE POD SUMMARY DATA WILL BE 
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FORMAT! 13, 14, 12, 12,18, 15, 11,412, I 1,38X,2A4) 
SEED=SEED*10 + 1 



WRITE(6,802) RUN 

802 F0RMAT!*1RUN KEY=',2A4) 

READ ORDERED CONTAINER DESCRIPTION FILE. 

REA0(5,811) UNT, KEY 

811 FORMAT! 65X, 12, 5X,2A4) 

WRITE!6,814) KEY 

814 FORMAT!* OCD FILE KEY=*,2A4) 

READ!UNT,813) (KCNTRG! I ) , MC ! I ) , MW ! I ) ,I=1,NCNT) 

813 F0RMAT!4!I2, 16,18)) 

READ CONTAINER BREAKEVEN, UTILIZATION, AND BOOKING PARM/STAT FILE 
READ!5,821) UNT, KEY 

821 FCRMAT(65X,I2,5X,2A4) 

WRITE!6,822) KEY 

822 FORMAT!* OCBUBPS FILE KEY=*,2A4) 

READ!UNT,823) ! !BP! I , J) ,CFUT! I ,J) ,CUESP ! I , J ) , S AF ! I , J ) , XCMXLB ! I , J ) , 
* 1=1, NCNT) ,J=1, NPOD) 

823 F0RMAT!3! I8,2F4.2,I4, F4.2) ) 

READ CONTAINER FORECAST STAT 1ST IC S/ PARAMETE RS FILE 
READ!5,821) UNT, KEY 
WRITE!6,832) KEY 

832 FORMAT!* OCFSP FILE KEY=’,2A4) 

READ! UNT, 833) !CFCUB!I ),CFESP!I ) , 

1 CFAF! I ), I = 1,NP0D) 

833 FORMAT! 4! FIO . 0, 2F4. 2 ) ) 

READ CONTAINER BOOKING HORIZON AND SUCCESS RATE FILE 
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RE4D(5,821) UMT.KEY 
WRITE(6»842) KEY 

842 FORMAT! » OCBHS'? FILE KEY=',2A4I 

PEAD(UNT.843) ( CSTRT ( I ) ,CRNG( I ) , 

1 CDSTYP! t) ,CREI.T(I) , I = l,NPOD) 

843 F0RMAT-<6( I4,F4.0, 212 ) ) 

C READ OSL FILE. 

READ(5,851) UNT,NSLVL, NSLA,KEY 

851 FORMAT(65X, 12,12, 13, 2A4) 

WRITE(6,852) KEY 

852 FORMAT! ‘ OSL FILE KEY=',2A4) 

IF!NSLVL.GT.O) GO TO 856 

858 WRITE!6,857) 

857 FORMAT!' STUFFING LIST FILE IS CUT OF ALIGNMENT') 

STOP 

856 PNTR=1 

READ !UNT,354) NDATA , ! ! SLP ! L , I ) , L =1 , NSL VL ) , I = 1 , NPOD ) 

854 F0RMATI12I6) 

IF!NDATA.LT. 1) GO TO 858 
B=PNTR 

E=PNTR+NDAT A-1 

READ!UNT,853) ! R EC! I ) , I =B, E ) 

853 F0RMAT!6! 15, 14,13)) 

PNTR=PNTR + NDATA 
READ!UNT,859) ! XADJ ! I ) , 1 = 1 , NSL A ) 

859 FORMAT! 18F4. 2) 

C 

C READ CONSIGNEE GROUP DATA. 

READ!5,821) UNT,KEY 
WRITE!6, 8116) KEY 

8116 FORMAT!' CONSIGNEE GROUP DATA FILE KEY=',2A4) 

DO 8111 I=l,NCON 

8111 CONGRP! I )=0 

8115 READ!UNT,8112) ! Z 1 ! I ) , Z2 ! I ) , I = 1 , 16) 

8112 F0RMAT!16!I4,ID) 

DO 8113 1=1,16 

J = Z1! I ) 

IF!J.LT.O) GO TO 8114 
IF!J.EQ.O) GO TO 3113 
CONGFP! J)=Z2!I) 

8113 CONTINUE 
GO TO 8115 

8114 CONTINUE 
C 

C INITIALIZE POD AND CONSIGNEE CUMULATIONS AND BOOKINGS. 

DO 310 J=1,NC0N 
TOTCSC! J )=0 

310 CONTINUE 

DO 311 vk=l,NPOD 
CCCUB! J)=0 
T0TCSP!J)=0 

311 CONTINUE 

C SET POINTERS. 

DO 411 J=1,NP0D 
DO 411 I=1,NCNT 
SCF! I, J)=0 
SCL! I , J)=0 

cntpolTi, J)=0 

CVPBd, J)=0 

411 CONTINUE 

DO 412 I=1,NC0N 
CSF! I)=0 
CS-L! I )=0 

412 CONTINUE 
CVF = 0 

C SEt'uP record POOL !GIVEN PNTR POINTS TO BEGINNING OF POOL). 

PNTR=! PNTR-1) /RECSIZ+1 
NXTPP=PNTR 
GO TO 512 

511 LOC=PNTR*RF.CSIZ 
REC!LOC)=NPNTR 
PNTR=NPNTR 

512 NPNTR=PNTR+1 
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IF(NPNJTR«RECSIZ.LE.LSTPEC) GO TO 511 

LOC=PNTR«RECSIZ 

REC(L0C)=0 

C SET DELAY PARAMETERS. 
CSATT=CDELTS+CDELTC 
CTDEL=COELTS+CDELTC+CDELCT 
MASDVA = MXADVS + CDELTC + CDELTS 



C 

c 

c 



TIME=0 

T0TSHP=0 

T0TCNR=0 

^ ^b 

SETUP OPERATING 
DO 1211 J = lf 4 



STATISTICS VARIABLES. 



TEMPAGI J 
TEMPCBI J 
TEMPWTI J 
TEMPASI J 
TEMPMAI J 
TEMPXAI J 
TEMPNSI J 
DO 1211 



=0 
=0 
=0 
= 0 

=10000 

=-10000 

=0 

= lf NPQD 



MNAGE( I , J)=10000 
Jl=-10000 
= 0.0 



MXAGE( I , 

SCCB( I, J 
SCCBT( I , J)=0.0 
MXCB( I , J)=0.0 
MXCBTI I » J)=0.0 
TAGE( I , J)=0.0 
TSAGE( It J)=0.0 
TWT( I 2 J) =0.0 
TWTT( I , J)=0.0 
NSHPd , J)=0 

1211 CONTINUE 

DO 1212 I=l,NPOD 
QNVAP( I )=-l 
QQTCA( I )=0 
QQTSCAI I )=0 
QQTCU I )=0 
DO 1212 J=1,NCNT 
QQNL(ItJ) = -1 
QQNM(I,jj= 0 
QQNSi I , J = 0 
QOSMI I , jj=0 
QOSS( I 2 J)=0 
QTSTBLI I , J)=0 
QQTTBLI I t J) =0 
QQCVM( I , J)=0.0 
QQCVS( I , J)=0.0 

1212 CONTINUE 






WRITE! 6t 614) 
614 FCRMATI//,' 



TIME 

CONTAINER STUFFING 
/, ' START TIME=' 



SIMULATION 
,14, • PLUS ONE. • ) 



MODEL* , 






IF(CLSOPT.LT.l) WRITE(6,8510) 

8510 FORMAT!///, • ON-LINE CONTAINER LIFT REPORT',//) 
IF(CLSOPT.LT.l) WRITE(6,8511) 

8511 FORMAT! • TIME VOYAGE POD CONTAINER TOTAL 

1 • UTILIZATION OVER-BOOKED UNBOOKED 

2, 'CONTAINER CARGO AGE*,/, 

* • 

3 . ' CUBE WGHT CANCELATIONS RESERVE 

4,' AGE AT STUFF',///) 

611 TIME=TIME+1 
TEMPl=TIME/7 
TEMP1=TIME-TEMP1*7 
IF!TEMP1.NE.0) GO TO 612 
DO 711 I=1,NP0D 
XT1=FL0AT!CCCUB!I ) )/7.0 



SC, 

UNBOOKED 



OTHER 
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CCCUB( ! )=0 

CFCUB(lV=XT2 + CFESP( I )*(XT1-XT2) 
711 CONTINUE 
612 CONTINUE 
PTCN=0 
PTCMC=0 
CALL CD ^ 

CALL CLASS 
CALL CST 
CALL CVIN 
CALL CL 
CALL CBOOK 
totcnr=totcnr+ptcnc 
TOTSHP=TOTSHP+PTCN 
IF(TIME.LT.TIMLIM) GO TO 611 
WRITE(6,615)TIME»T0TSHP,T0TCNR 



ENDING TIME= 
CONTAINERS 



615 FORMAT!/, ■ 

♦ • TOTAL 

♦ ////) 

, %%%%%%%%%%%%%%%% 

DO 9110 I=1,NP0D 

0''‘AGE = 0. 0 

QTSAG8=0.0 

QSCC=0.0 

QMXC=0.0 

QSCCT=0.0 

0MXCT=0. 0 

0WT=0.0 

QWTT=0.0 

QNSHP=0 ^ , T , . 

1F( ( (I-l )/3)#3 -( I-l ) 
9125 FORMAT ( • 1' ) 

WRITE! 6, 9111 ) 

9111 FORMAT! /// 
WPITE!6,9112) 

9112 FORMAT! 



oiU 



16, 



17 



TOTAL SEGR'ENTS IN=',I7, 



,EQ.O) WRITE!6,9125) 



I 



OPERATIONAL STATISTICS FOR POD *,I4,//) 



♦ 

♦ 

* 



/, 



J = l,4 



TOTAL 

WGHT* 

GROUP 

CUBE 

UTIL'//) 



SHIPMENTS 
PCT CUBE 



MIN 



SC 



MEAN 

MIX 



MAX 



SC 



UTIL 



AGE AGE AGE 
UTIL UTIL 



STD 

TOTAL ' 
DEV 

WEIGHT 



DO 9113 
AGE=0 
STDEV=0 
TC = 0 
PCTSC=0 
PCTCU=0 
PCTSCU=0 
PCTMXU=0 
WT = 0 
PCT WU= 0 

OXXX-'^^!^§AGen^ J))^° I°(TAGE! I , J )**2)/DFL0AT!NSHP! I,J) n 
DXXX= DXXX/DFL0AT!NSHP!1,J)) 

STDEV= SNGL!DXXX) 

AGE = SNGL! TAGE! I^J ) ) / FLOAT!NSHP ! I, J) ) 

SCC=SNGL!SCCB!I , J ) ) 

MXC=SNGL!MXCB!I,J) ) 

SCCT=SNGL!SCCBT!I, J 
MXCT=SNGL!MXCBT ! I , J) ) 

WT=SNGL!TWT! I,J) ) 

WTT=SNGL!TWTT!I,J)) 

QTSAG8=QTSAG0+TSAGE! I t J ) 

QTAGE=SNGL!TAGE! I , J) )+OTAGE 
QNSHP=QNSHP+NSHP ! I , J ) 

QSCC=QSCC+SCC 

QMXC=QMXC+MXC 

QSCCT=QSCCT+SCCT 

QMXCT=QMXCT+MXCT 

QWT=QWT+WT 

QWTT=QWTT+WTT 



f 



f 
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100.*SCC/SCCT+,4) 
100.*MXC/MXCT+.4) 



TC=SCC+MXC 
TCT=SCCT+MXCT 

PCTSC=IFIX( 100.*SCC/TC+.4) 

PCTCU=IFIX( 100.«TC/TCT) 

PCTSCU=0 

IF(SCCT.GT.O.O»PCTSCU=IFIX( 

PCTMXU=0 

IF(MXCT .GT.0.0) PCTMXU=TFIX( 

PCTWU=IFIX( 100.*WT/WTT) 

9113 WRITE (6 t 9115 J J»NSHP( I , J) ,MNAGE( I , J ) , AGE, MX AGE ( I , J ) ,STDEV,TC, 

# PCTSC,PCTCU, PCtSCU,PCTMXU,WT,PCTWU 

9115 FORMAT! 7X, I 2 ,3X , 1 9, 3X , 1 3, F8 . 2 , ! 5 , F7.3,F13.0, 15,17,17,18, 

* F13.0.I7) 

IF( QNSHP.LE.O) GO TO 9110 
TC=QSCC+QMXC 
TCT=QSCCT+QMXCT 
XCTSC=QSCC/TC 
XCTCU=TC/TCT 
XCTSCU=0.0 
IF(QSCCT.GT.O.O) 

XCTMXU=0.0 
IF(QMXCT.GT.O.OJ 
XCTWU=QWT/QWTT 
AGE=QTAGE/FLOAT( QNSHP ) 

DXXX=QTSAG8-( (03LE(QTAGE)*’!'2) /OFLOAT(QNSHPn 
DXXX=DXXX/DFLOAT( QNSHP) 

STDEV=SNGL(DXXX) 

STDEV=SORT( STDEV) 

WRITE (6, 9116) QN SHP, AGE, STDEV, TC ,XCTSC,XCTCU,XCTSCU,XCTMXU, 

« OWT,XCTWU 



XCTSCU=QSCC/QSCCT 

XCTMXU=QMXC/QMXCT 



9116 FORMAT!' 



TOTALS • , 3X, 19, 6X, F8.2 ,5X,F7.3,F13.0,3F7.4,F8.4,F1 1.0, 



9117 



# F9.4) 

IF!RSLTOP.EQ.l) WRI T E ! 7, 91 17) I , QNSHP , AGE , STDEV, TC , XCTSC , XCTCU , 

* XCTSCU, XCTMXU,QWT, XCTWU,RUN 

... .. o,F6.4,2A4) 
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FORMAT! 12, • 1» ,18, 2F5 . 2 , FIO. 0, 4F6 . 4, Fll 
XTIME=TIME 

XAVS=FL0AT! QNSHP)/XTIME 

xavv=tc/xtime 

XAVW=QWT/XTIME 

WRITEI6, 9119) XAVS,XAVV,XAVW 

FORMAT! * DAILY AVE . • , FIO . 3 , 26 X , F13 . 3 , 2 6X , F 14. 3 ) . 
XONVAP=FLOAT (QNVAPn ) ) 

AGE=XTBVS( I ) /XQNVAP 

STDEV=XTBVSS! I) - !! XTBVS! I )**2) /XQNVAP ) 

STDEV=STDEV/XQNVAP 
STDEV=SQRT!STDEV) 

XQNVAP=XQNVAP+1.0 
XPCA=QQTCL! I ) 

XPSDCA=FLOAT!QQTSCA( I ) )- ! FLO AT ! QQTCA ! I ) )**2) /XPCA 
XPSDCA= XPSDCA/XPCA 
XPCA=FLOAT!QQTCA! I ) )/XPCA 

WRITE(6,9118)XQNVAP,AGE.STDEV,XPCA,XPSDCA 
FORMAT!' NUMBER OF L I FTS=' , F5 . 0, ' AVERAGE DAYS BETWEEN 

* F6.2,' STD.DEV. = ' ,F6.2, ' AVE CNTNR AGE= ' , F6 . 2, 

* ' STD.DEV.=', F6.2) 

IF!RSLTOP.EQ.l) WRI TE ! 7, 9120 ) I , XTI ME , X AV S ,X A VV, X AVW , XQNVAP, 

* AGE, STDEV, XPCA,XPSDCA, RUN 

9120 FORMAT! I 2, '2' , F 5 . 0, F6. 1 , F7. 1 , F 8. 1 ,F5 .0 , 4F6.2 , 14X , 2 A4 ) 
WRITE!6,9711 ) 

SINGLE CONSIGNEE VANS 

MIXED CONSIGNEE VANS 



91 18 



LIFTS=' 



9711 FORMAT! 

1 
2 

3 

4 

5 

6 

DO 9712 K=1,NCNT 
XCVC=MC(K) 
IF!QQNL! I ,K) .LT.l 
XVU1=QQNS! I ,K) 
XVU3=XVU1 
XTC1*SNGL!QQCVS! I 



VAN 



TYPE 



ALL VANS* 
NO. SHIPMENTS V.UTL. 
NO. SHIPMENTS V.UTL. 
NO. SHIPMENTS V.UTL. 
ADBL STDEV ) 



) GO TO 9712 



dARGO 

CARGO 

CARGO 



VOLUME 

VOLUME 

VOLUME 



K) ) 



IF! XVUl .GT.O )XVU1= XTCl/ ! XCVC*XVU1) 
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9713 



9714 



XVU2 = QQNM( T f K) 

XVU3=XVU3+XVU2 
XTC2= SNGL( QQCVM( If K) ) 

IF( XVU2.GT.0)XVU2= XTC2/ ( XCVC+XVU2) 

XTC3= XTCl + XTC2 
XVU3= XTC3/( XCVC*XVU3) 

AGE=QQTTBL( I ,K) 

STDEV='^FLbAT^QTSTBL(I,K)) - ( AGE* <=2 ) / XC VC 
STDEV= STDEV/XCVC 
STDEV= SQRT(STDEV) 

QQNT = OQNSn^K)+ QQMM(ItK) 

WRITE?6f9n3VK,QQNS(i;KlfQQSS(T,K),XVUl,XTCl^ 

1 OQSM( I ,K) ,XVU2f XTC2f ^ 

F0RMAT(I5t 3(I4fI9f F8.4fFl3.0f 4X ) f F6 . 2f F6 . 2 ) 

WRITE ( 7?9714) fK^QQNsIlfK) fQQSS( IfK) f XVUl f XTCl f RUN 

XTC2f RUN 



QQNM( I f K) f 
AGEf STDEV 



FnRMAT(i2f'3*fI2fl4fI8fF6.4fF10.6f39Xf2A4) 

WRITE (tI 9)15 ) TtKfQONMl IfK) fQOSMlifKjfXVU^ 

FORM AT ( I 2 f • 4 * f I 2 f 1 4 f 1 8 f F6 . 4 f F 10 . 0 f 39Xf 2 A4 ) 

WRITE(7f9h6) I ♦‘^iQQNJ’QQSTf XyU3,XTC3fAGEf STDEVfRUN 
9716 FORMAT! I2f ' 5' f I2f 14f I8fF6.4fF10.0f 2F6 .2 f 27X f 2A4 ) 

9712 CONTINUE 
9110 CONTINUE 

: 

CALL STATE 

STOP 

END 
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CONTAINER STUFFING ROUTINE DECK 

SUBROUTINE CST 
IMPLICIT INTEGER*2 (A-Z) 

REAL *8 SCCB,SCCBT,MXCB»MXCBT,TAGE,TSAGE»TWTt TWTT 

INTEGER*4 NSHP,TEMPCB,TEMPWT ,TEMPNS , TEMPMA, TEMPXA, TEMPAG, 

« TEMPASiMNAGEtMXAGE 

COMMON /OPSTAT/ SCCB( 30, 4),SCCBT( 30, 4),MXCB( 30, 4), 

* MXCBT( 30, 4),TAGE( 30, 4),TSAGE( 30, 4),TWT< 30, 4), 

* TWTT( 30, 4), 

« TEMPAS( 4),NSHP( 30, 4),TEMPCB( 4),TEMPWT( 4),TEMPAG( 4), 

* MNAGE( 30, 4),MXAGE( 30, 4),TEMPNS( 4),TEMPMA( 4),TEMPXA( 4), 

« CONGPPdSOO) 

REAL*4 AACUB 
DIMENSION AACUBI4) 

REAL*8 DBLE.DFLOAT 
REAL*8 QQCVS,QQCVM 

INTEGER*4 QQTTBL , OTS T3L , QQTCA , QQT SCA , OONT, QQST 
CnMM0N/0PSTT2/0QCVS( 30 , 20 ) , QQC VM( 30 ,20 ) , QQTT BL ( 30 , 20) , 

1 QTSTBLt 30,20) , QOTC A ( 30) , QQTSC A (30 ) , QQTCL ( 30 ) , 

2 QQSS(30,20) ,QQSM( 30 , 20 ) , QQNS ( 30 ,20) ,QQNM( 30,20) , 

3 QQNl (30,20) ,QQ0LL(30, 20) 

^ CD 07 07 07 07 07 07 07 07 OF 07 07 07 07 

TNTEGER*4 MC,MW,BP 

C0MMnN/CNT8LK/MC( 20) , MW ( 20 ) , B P ( 20 , 30) , S AF( 20 , 30 ) ,NCNT,NPOD,NCON, 

1 NCNTRG,KCNTRG(20) 

REAL *4 CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER*4 TOTCSC , TOTC SP , CCCUB , CVPB 

COMMON/STATBK/ CFCUB(30 ),CCCUB(30 ),CFUT(20,30 ) , CUESP ( 20 , 30 ), 

1 CFESPOO ),CVPB(20,30 ),XA0J(200 ),CFAF(30 ), TOTCSC ( 1500 ), 

2 T0TCSP(30 ) 

COMMON /CSBLK/ CSF(1500) ,CSL(1500) ,SLP( 10,30) ,NSLVL 
COMMON/SCBLK/ SCF(20 ,30 ),SCL(20 ,30 ),CLS3PT 
COMMON/CVCBLK/ CVF,CVL 
COMMON/TMPTCN/ TIME, PTCN, PTCNC 

COMMDN/RCSTBK/ NXTRP , RELRP, NXTPP, RECSI Z , MXUREC , REC ( 32000) 

REAL=«'4 BRNG,CRNG 
INTEGER+4 SEED 

COMMON/ PROBBK/ SEED, BRMG( 30 ) , CRNG( 30 ) , BSTRT ( 30 ) , CSTRT ( 30 ) , 

1 BDSTYP(30>,CDSTYP( 30) ,CRELT(30) ,BRELT(30) 

CC.MMON/CDELBL/ CDELCT. CDELTS, CDELTC, CSATT, CTDEL ,MXADVS,MASDVA 
COMMON/CTPLBK/ CNTPOL ( 20 ,30 ) 

INTEGER*4 UNT0l,UNT02, UN I T , UNTl 1 , UNT 12 

rOMHON/IOUNT/ UNT01,UNT02, UN IT ( 8 ) , UNTl 1 , UNT 1 2 

INTEGER*4 TOTAL , MAXC , MAXCC , MA XW , I XX,MAXWW, BKP, BEP 

REAL*4 FLOAT, XBKP 

INTEGER*4 SIZ4,WHT4 

REAL’i'4 XSIZ,XWHT,XPLC,XPLW,XPCTL 

INTEGER#4 LOC.FLOC 

DATA BITl/l/,5lT2/2/,BITll/ll/ 

C MNSPLV = MINIMUM SPLIT VOLUME. (CUBIC FEET) 

DATA MNSPLV/200/ 

C TVN= TENTATIVE VOYAGE CODE 

C MAXCC= MAXIMUM CUBE. 

C MAXC= REMAINING CUBE. 

C MAXWW= MAXIMUM WEIGHT. 

C MAXW= REMAINING WEIGHT. 

C 1= CONTAINER TYPE 

C J= POD SEQUENCE NUMBER. 

LASTI=0 

LASTJ=0 

LASTF=0 

CUT1=TIME+CSATT 

CUT2=TIME+MASDVA 

ICNTRG=1 

FLAG=1 

2001 FLPT=CVF 
GO TO 511 

2036 IF( ICNTRG.EQ.NCNTRG) GO TO 2038 
ICNTRG=ICNTRG+1 
GO TO 2001 

2038 IF(FLAG.EO.NSLVL ) RETURN 
ICNTRG=1 
FLAG=FLAG+1 
GO TO 2001 



no oooooo 
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1 

511 



1111 



105 



101 



103 

102 



111 

112 



225 



FLPT=REC (FLOC) 

IF(FLPT.EQ.O) GD TO 2036 
FLOC=FLPT*RECSIZ 
ARRIVE=REC( FLOC+2) 

IF( ARP IVF.LT.CUTl ) GO TO 1 
IF(ARRIVE.GT.CUT2) GO TO 1 
IF(PEC(FLOC-»-l).LT.l) GO TO 1 
J=REC (FLOC+4) 

I=0EC(FL0C+5) 

IF(KCNTRG( I ) .NE. ICNTRG) GO TO 1 
IF(CNTPOL( I,J) .LT.l) GO TO 1 

IF( (LASTI.EQ.I) .AND. (LASTJ.EQ. J) .AND.(LASTF.EQ.FLAG) )G0 TO 102 

LASTF=FLAG 

LASTI=I 

LASTJ=J 

MAXCC=MC ( I ) 

MAXCCA=MAXCC-SAF< I, J ) 

MAXWW=MW( I ) 

BKP=BP( I , J) 

XBKP=FLOAT(BKP) 

PNSL=SLP(FLAG,J) 

PSTART=PNSL 
GO TO 103 
PNSL=REC (PNSLT) 

IF(PSTART.NE.PNSL) GO TO 102 
GO TO 1 

IF( PNSL.EQ.O) GO TO 2038 
COMPUTE total CUBE. 

T0TAL=0 
PNSLT=PNSL 
GO TO 112 
PNSLT=REC(PNSLT) 

PNCS =REC(PNSLT+1 ) 

TGTAL=TOTAL+TOTCSC( PNCS) 

SLN=REC( PNSLT+2) 

IF(SLN.EQ.O) GO TO 111 
BEP=IFIX( XADJ( SLN )*XBKP) 

IF(TOTAL.LT.BEP) GO TO 101 
STUFFING ROUTINE 

PNSS= POINTS TO FIRST RECORD IN STUFFABLE STACK. 

PNCS= CONSIGNEE NUMBER. 

LASTCN = LAST CONSIGNEE STUFFED. 

SCFLAG = NUMBER OF CONSIGNEES STUFFED. 

ITPARC* NUMBER OF SEGMENTS STUFFED IN CONTAINER. 

ITAGE= TOTAL AGE OF SHIPMENTS STUFFED. 

ITSH=NUMBER OF SHIPMENTS STUFFED. 

BRANCH=1 

LASTCN=0 

SCFLAG=0 

ITPARC=0 

ITAGE=0 

ITSH=0 

MAXW=MAXWW 

MAXC=MAXCCA 

ppstrt=pnsl 

ANY MORE SHIPMENTS IN CONSIGNEE STACK? 

PNCS=REC(PNSL+1) 



PNSS=CSF(PNCS) 

224 IF(PNSS.EQ.O) GO TO 221 
; WILL SHIPMENT FIT? 

LOC*PNSS«RECSIZ 
SIZE=REC(LOC +2) 

IF(SIZE.GT.MAXC) GO TO 222 
WEIGHT=REC(LOC +3) 

IF(WEIGHT.GT .MAXW) GO TO 222 
•^CNI=REC(LOC +1) 

2223 T=TIME-REC(LOC +5)+l 

TOTCSC(PNCS)=TOTCSC( PNCS) -SIZE 
TP0D=REC(L0C+6) 

TOTCSPITPOD ) =TOTCSP( T POD) -SIZE 
MAXC-MAXC-SIZE 
MAXW=MAXW-WE IGHT 
ITPARC=ITPARC+1 

IF(UNT02.GT.0) WR I TE ( UNT02 , 22 3 ) B IT2, T I ME , TCN I » SI ZE , WE I GHT , 
* REC(L0C+5),J,PNCS,T 

223 F0RMAT(9A2) 



oo o on o on 
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K)+DFLOAT( IXX) 



K l+DFLOA‘^( IXX) 



227 



TIME»T, PNCS 



228 

227 



K=CONGRP (PNCS) 

IXX=SIZE 

TEN»PC8( K)=TEMPCB( 

IXX=WEIGHT 
TEMPWT( K)=TEMPWT( 

IF(TCNI .LT. 1 ) GO TO 
%%%%%%%%%%%%%%%% 

TEMPNS(K)=TEMPNS(K)+1 
IF(T.GT.TEMPXA(K) ) TEMPXA(K)=T 
IF(T.LT.TEMPMA(K) ) TEMPMA(K)=T 
TEMPAG(K)=TEMPAG(K)+T 
TEMPAS( K )=TEMPAS( K)+ T**2 

Ay Ay 

ITAGE=ITAGE+T 
ITSH=ITSH+1 

IF(UNT12.GT.O) WRITE ( UNT12 , 228 ) 

FORMAT! 3A2) 

IF(LASTCN.EQ.PNCS) GO TO 226 
SCFLAG=SCFLAG+1 
LASTCN=PNCS 

IF(BPANCH.EQ.2) GO TO 2221 
RFLPP=PNSS 
PNSS=REC(L0C ) 

CSF( PMCS )=PNSS 
IF( PNSS.EQ.O) CSL(PNCS)=0 
CALL RELREC 
GO TO 224 

NO MORE SHIPMENTS IN CURRENT CONSIGNEE 
ANY MORE CONSIGNEES IN LIST? 

T = REC( PNSL+2 ) 

PNSL=REC( PNSL) 

IF(T) 225,225,251 
SHIPMENT DOES NOT FIT. 

CLOSE OUT CONTAINER, UPDATE DATA, AND TRANSFER, 
IF(MAXC.LT.MNSPLV) GO TO 2221 
SPLIT THE SHIPMENT 
SIZ4=SIZE 
WHT4=WEIGHT 
XSIZ=FLOAT( SIZ4) 

XWHT=FLOAT( WHT4) 



226 



STACK. 



221 



222 



IF(WEIGHT.LE.O) XWHT=.l 
IF( SIZE.LE.O) XSIZ =.l 
XPLC= PROPORTION OF SHIPMENT 
XPLW= PROPORTION OF SHIPMENT 
XPLC=FLOAT(MAXC) /XSI Z 
XPLW=FLOAT( MAXW) /XWHT 
XPCTL= LOADABLE PROPORTION 

xpctl=xplc 

IF(XPCTL.GT. XPLW) XPCTL=XPLW 
LOBLC= LOADABLE CUBE 
LDBLW= LOADABLE WEIGHT 
LDBLC=IFIX(XPCTL«XSIZ) 
LOBLW=IFIX(XPCTL*XWHT) 
REMV0L=REC(L0C+2) -LDBLC 



LOADABLE 

LOADABLE 



USING 

USING 



CUBE AS A 
WEIGHT AS 



CONSTRAINT. 
A CONSTRAIN' 



REC( L0C+2)=REMV0L 
REC(L0C+3)=REC(L0C+3)-L0BLW 
SIZE=LDBLC 
WeiGHT=LDBLW 
BRANCH=2 
■rCNI=REC(LOC + l) 
JF(TCNI.LT.O) GO 
TCNI=-TCNI 
GO TO 2223 
PNSL=PPSTRT 
SLP(FLAG, J)=PNSL 
C AMT=CUBE IN CONTAINER 
TVN=REC(FLOC+8) 



TO 2223 



2221 

251 



(CANNOT EXCEED 32K) 



REC( FL0C+1)=REC(FL0C+1)-1 



PEC(FL0C+9)=REC(FL0C+9! 
CVPB( I , J )=CVPB( I , J)-MAXCC 
CNTPOL( I , J)=CNTPOL( I , J)-l 
AMT=MAXCCA-MAXC 
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C TRANSFER CONTAINER 

CALL NXTREC 
LOC=NXTRP*RECSIZ 
RECILOC )=0 
PTCNC=PTCNC+1 
T=PTCNC 

IF(SCFLAG.GT.l) T=-T 
RECILOC +1)=T 
REC(LOC +2)=TVN 

CWT =(MAXWW-MAXW+51)/100 

REC(L0C+3)=CWT 

REC(LOC +4)=AMT 

RECILOC +5)=TIME 

RECILOC +6)=TIME+COELTC 

REC(L0C+7)=ITAGE 

REC(L0C+8)=ITPARC 

RFC(L0C+9)=ITSH 

IPROP=( 100«AMT) /MAXCC 

WPROP= ( 10000*CWT) /MAXWW 

IF(AMT.GE.BEP) GO TO 253 

IF(UNTOl.GT.O) WRITE (UNT01»252) B IT 1 ,T I ME , I PROP » WPROP ,T , SLN, 
* SCFLAGtJ, I , ITPARC, ITSH»ITAGE 

252 FORMAT(12A2) 

253 IF(UNTll.GT.O) WR I TE ( UNTl 1» 25 4 ) B ITl 1 , T I ME t J t I t AMT » I PROP » 

« CWT,WPROP,T»SLN,SCFLAG, ITPAPC, ITSHt ITAGE 

254 FORMAT! 14A2) 

IFISCFLAG.GT.II GO TO 411 
I XX= I T SH 

QQSS( J,I )=QQSS( Jtl) + IXX 

QOCVS( J. I)=QQCVS( J,I ) + DFLOAT(TEMPCB(K) ) 

QONS(J»l)= QQNS(J»1) + 1 

SCCB( J,K)=SCCB( J»K)+DFLOAT(TEMPCB(K) ) 

TEMPCBIK )=0 

SCCBT( J,K) = SCCBT (J»K) +DFLOAT( MAXCC) 

TWTT( J»K)=TWTT( J,Kl+DFLOAT(MAXWW) 

416 TWT( J,K)=TWT(J»Kl+OFLOAT(TEMPWT(K) ) 

TEMPWT(K)=0 

NSHP( J,K)=NSHP( J»K)+TEMPNS(K) 

TEMPNS (K )=0 

IF(TEMPMA(K) .LT. MNAGE ( J, K) ) MNAGE ( J » K ) =TEMPMA ( K ) 

IF(TEMPXA(K) .GT.MXAGE! J,K) ) MX AGE ( J t K ) =T EMPXA ( K ) . 

TEMPMA! K )=10000 
TEMPXA(K)=-10000 

TAGE( J,K1=TAGE( J,K)+DFLOAT(TEMPAG(K) ) 

TEMPAGIK )=0 

TSAGE( JtK)=TSAGE( J,K)+DFLOAT(TEMPAS(K) ) 

TEMPAS(K)=0 

IF(SCFLAG-l) 412,412,413 

411 IXX=ITSH 

QQSM( J, I )=QQSM( J, I )+ IXX 
IXX=0 

DO 414 K=l,4 

414 IXX=IXX-^TEMPCB(K) 

QQCVM( J,I)=QQCVM( J,I ) + DFLOAT(IXX) 

QQNM(J,I)=QONM(J,I) * 1 
DO 415 K=l,4 

415 AACUB(K)=FLOAT(TEMPCB(K) )/FLOAT( IXX) 

K=0 

413 IF(K.EQ.4) GO TO 412 
K=K+1 

MXCB( J,K)=MXCB( J,K)+DFLOAT(TEMPCB(K) ) 

TEMPCB(K)=0 

MXCBT( J, K)=MXCBT( J,K)+ OBLE( AACUB(K) ) «DFLOAT ( MAXCC ) 
TWTT(J,K)=TWTT( J,K) + DBLE(AACUB(K) )*DFLOAT( MAXWW) 

GO TO 416 

412 CONTINUE 
C 

C ADD STUFFED CONTAINER TO STUFFED CONTAINER STACK 

LOC=SCL( I,J)*RECSIZ 
IF(LOC.EQ.O) GO TO 2 
REC(LOC)=NXTRP 
SCL(I , J)=NXTRP 
GO TO 1111 
2 SCL( I , J)=NXTRP 
SCF( I, J)=NXTRP 
GO TO 1111 
END 
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CONTAINER LIFT ROUTINE DECK 



SUBROUTINE CL 

IMPLICIT INTEGER#2 (A-Z) 

TNTEGER*4 MC,MW,BP 

COMMON /CNTBLK/MC( 20) , MW( 20 ) , BP ( 20 , 30 ) , S AF ( 20 , 30 ) ,NCNT,NPOD,NCON 
1 NCNTRG.KCNTRG(20) 

REAL*4 CFCUB,CFAF,CFUTtCUESPtCFESP,XADJ 
INTEGER*^ TOTCSC,TOTCSP,CCCUBtCVPB 

COMMON/STATBK/ CFCUBOO ),CCCUB(30 )»CFUT(20,30 ) ,CUESP ( 20 .30 ) 

1 CFESPOO )tCVPB(20.30 ),XADJ(200 ),CFAF(30 ) , tOTCSC ( 1 500 ), 

2 T0TCSP(30 ) 

COMMON/SCBLK/ SCF(20 ,30 ),SCL(20 ,30 ),CLS0PT 
COMMON/CVCBLK/ CVF.CVL 
COMMON/TMPTCN/ TIME, PTCN, PTCNC 

COMMON/RCSTBK/ NXTRP , RELRP , NXT PP , RECSI Z , MXUR EC, REC ( 32000) 
COMMON/CTPLBK/ CNTPOL ( 20 ,30 ) 

INTEGER*4 UN IT , UNTIO , UNTOl , UNT02 ,UNT03 
COMMQN/IQUNT/ UNTOl , UNT02, UNT03, UNI T ( 6 ) , UNTIO 



INTEGER*4 OL VAD, QDIFF , ONVAP 
REAL*4 XT6VS,XTBVSS 

CCMMON/OPSTTl/ QDI FF , QN VAP ( 30 ) , QL VAD( 30 ) , XTB VS ( 30 ) ,XTBVSS(30) 
REALMS QQCVS.QQCVM 

INTEGER44 QQTTBL, QTSTBL, QQTCA , QQTSCA, QQNT, QQST 
COMMON/OPSTT2/QQ0vS(3O,2O) ,QQCVM(30,20) , QQTTBL ( 30 , 20 ) , 

QTSTBL( 30.20) ,QQTCA(30) ,QQTSCA(30) ,Q0TCL( 30) , 

QQSS(30,20) ,QQSM(30,20) ,QQNS(30,20) ,QQNM( 30,20) , 
QQNL(30,20) ,QQDLL( 30,20) 

INTEGER*4 T0TC,T0TW,IFIX,TCAGE,ICAGE 

REAL*4 XWPCT,XCPCT,XN,XTEMP,FL0AT,XACAGE,XAAGE 

INTEGER*4 LaC,J,K 

INTEGER*4 T0TN4, I TSH4, ITAGE 

INTEGER+4 EX4,REC4 

DATA BIT3/3/,BIT10/10/ 

2 IF(CVF.EQ.O) RETURN 
LOC=CVF«RECSIZ 
IF(REC(L0C+2)-TIME) 3,4,5 



oo no 



3 WRITE(6t6) (REC(LOC+K) ♦K=l,9) 

6 FORMATC VESSEL OUT qF ORDER, CL ROUTINE: *,9I7) 

STOP 

5 RETURN 

4 P0D=PEC(L0C+4) 

CT= REC(L0C+5) 

VYN=REC(L0C+8) 

PCA=REC(L0C+3) 

0CA=REC(L0C+7) 

FPNT=0 

PNT=SCF(CT,POD) 

TOTN=0 
T0TNSC=0 
T0TC=0 
T0TW=0 
TCAGE=0 
ITSH=0 
ITAGE=0 
ITPARC=0 
GO TO 11 
251 FPNT=PNT 
PNT=REC( J) 

11 IF(PNT.EQ.O) GO TO 25 
j=PNT*RECSIZ 

IF(REC( J+6).GT.TIME) GO TO 251 
IF(VYN.NE.PxEC(J+2) ) GO TO 251 
TOTN=TOTN+l 
TOTC=TOTC+REC( J+4) 

REC4=REC( J+3) 

TOTW=TOTW+REC4*100 
ICAGE=TIME-REC( J+5) 

TCAGE=TCAGe+ICAGE 

QQTSCA(POD)==QQTSCA( POD) + ICAGE**2 

# 4 : iC( 4; lit 



TOTNSC=totnSC+1 



GO TO 262 
NOT AT END 



261 



264 



2 62 
263 



25 

28 



271 



GO TO 264 



LPTCN=REC( J+i: 
lF(LPTCN.GT.Oi 
ITAGE=ITAGE+REC( J+7) 

ITPARC=ITPARC+REC(J+8) 

ITSH=ITSH+REC( J+9) 

IF(FPNT.EQ.O) GO TO 261 
K=FPNT#RECSIZ 
!F(REC( J ) ^EQ.O) 

C NOT A BEGINNING, 

REC(K)=REC( J ) 

GO TO 263 

C AT BEGINNING 

IF (REC( J ) .EO.O) 

NOT AT END, AT BEGINNING 
SCF(CT,POD)=REC( J ) 

GO TO 263 

AT END, AT BEGINNING 
SCF(CT, POD)=0 
SCL(CT.P0D)=0 
GO TO 2S3 

NOT AT BEGINNING, AT END 
REC(K)=0 

SCL(CT,POD)=FPNT 
RELRP=PNT 
PNT=REC(J) 

CALL RELREC 
GO TO 11 

IF(REC(L0C+9) .EQ.TOTN) 

WRITE(6,28) VYN,POD,CT 

FORMATC CONTAINER(S) LOST SOMEWHERE IN THE PROGRAM* 
1 • OR VOYAGE NUMBERS ARE NOT UNIQUE*, 317) 

STOP 

EXCESS = REC(LOC+l) 

XACAGE=0.0 
XAAGE=0.0 
XCPCT=0.0 
XWPCT=0.0 



GO TO 271 
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POD)*(XCPCT - XTEMP) 



GO TO 9001 



IF(TOTN.LT.l) GO TO 31 
T0TN4=T0TN 
XN=FtOAT(TOTN4) 

XACAGE=FLOAT(TCAGE)/XN 
ACAGE=IFIX(XACAGE*100. ) 

XCPCT = FLOAT(TOTC) /(XN* FLOAT (MC(CT ) ) » 

XWPCT = FLOAT(TOTW) /(XN*FLOAT(MW(CT )) ) 

XTEMP=CFUT(CTtPOD» 

CFUT(CT»POD)=XTEMP + CUESP(CT 
WPCT=IFIX( (XWPCT )*10000.) 

CPCT=IFIX( (XCPCT )*10000.) 

IAAGE=0 

IF( ITSH.EQ.O) GO TO 3111 
ITSH4=ITSH 

XAAGE=FL0AT( ITAGE)/FLnAT(ITSH4) 

IAAGE=IFIX( XA AGE* 100.0) 

3111 CONTINUE 

IF(UNTIO.GT.O) WRITE(UNT10,26) B I TIO » T I ME , AC AGE , TOTN , 

1 TOTNSCtPODtCPCT,WPCTtCT»VYNt ITPARC, ITSH, lAAGE 

26 FORMAT! 13A2) 

IF(QNVAP (POD) .NE.-l) 

QLVAD( POD)=TIME 
QNVAP( P0D)=0 
XTBVS(P0D)=0.0 
XTBVSSl P00)=0.0 
GO TO 9002 

9001 QDIFF=TIME'QLVAD( POO) 

XTBVS( POD) = FLOAT! QDI FF ) +XTBVS ! POD ) 

XTBVS5 ! POD) =FLOAT (QDIFF *QD IFF ) +XTBVSS ! POO ) 

QNVAP! POD)=QNVAP! P0D)+1 
QLVAD! PGD)=TIME 

9002 CONTINUE 

IF!QQNL! POD,CT) .NE. -1) GO TO 9003 
QODLL! POO.CT) = TIME 
QQNL!POD,CT) = 0 
GO TO 9004 

9003 QDIFF=T1ME - QQDLL ! POO, CT) 

QQTTBL! POD,CT)= QQTTBL!POD,CT) + QDIFF 
QTSTBL! POD,CT)= QTSTBL ! POD,CT ) + QDIFF**2 
QQNL! PODtCT )=QQNL!POD,CT)+ 1 
QQDLL! POD, CT)= TIME 

9004 QQTCA! POO) =QQTCA ! POO ) +TCAGE 
QQTCL! POD)=QQTCL! POD)+TOTN 

31 EX4=EXCESS 

CVPB!CT, POD)=CVPB!CT, P0D)-EX4*MC!CT) 

C 

CNTPOL !CT, POD) =CNTPOL !CT, POD) -EXCESS 
C 

RELRP=CVF 

CVF=?REC!LOC) 

IF(CVF.EQ.O) CVL=0 
CALL RELREC 

IF!CLSOPT.LT.l) WRI T E ! 6 , 8512) T! M E, VYM , POD, CT , TOTN , TOTNSC , 

1 XCPCT, XWPCT, EXCESS, RCA. OCA, XACAGEtXAAGE 

8512 FORMAT! 16, 18, 15, 18, 1 10,1 4, F8. 4, F7. 4, 1 14, I 8,1 11, F12. 4, FI 2. 4) 



IF!UNT03.GT.0) 
1 TOTN 

303 FORMAT !9A2) 

GO TO 2 
END 



WRITE!UNT03,303)BIT3,TIME,EXCESS, J, I , VYN , RCA, OCA , 
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RECORD ACCESS AND STORAGE ROUTINES DECK 



32000) 



SUBROUTINE MXTREC 

CCMMO^/ RCSTBK/^NXTRP» RELRPt NXTPP t RECSI Z t MXUREC t REC( 
NXTRP=NXTPP ^ ^ 

MXTPP=RECINXTPP«RECSI Z) 

IF{MXUREC.LT. NXTPP) MXUREC=NXTPP 
IF(NXTPP.GT.O)RETURN 

FORMAT! ^^NO MORE RECORDS AVAILABLE') 

CALL STATE 

STOP 

END 

SUBROUTINE RELREC 

COMMON/ RC ST BK/^NXTRpJrELRP, NXTPP, RECSI Z, MXUREC »REC( 32000) 

REC(RELRP*RECSIZ)=NXTPP 

NXTPP=RELRP 

RETURN 

END 



CONTAINER DISPATCH ROUTINE DECK 



C 

X 

c 



SUBROUTINE CO 
IMPLICIT INTEGER*2 (A-Z) 

COMMON/CVCBLK/ CVFtCVL 
COMMON/TMPTCN/ ‘ 

COMMON/RCSTBK/ 

COMMON/CDELBL/ 

COMMON/CTPLBK/ 

INTEGER*4 LOC 
TRANSFER EMPTY CONTAINERS TO STUFFING POINTS. 



TIME, PTCN, PTCNC 
NXTPP, RELRP, NXTPP, RECSI Z , MXUREC, REC( 32000) 

CDELCT, COELTS, CDELTC, CSATT, CTDEL , MXADVS , MASDVA 
CNTPOL (20,30) 



POINTER 



CVFF IS A FOLLOWING 
CVFF=CVF 
GOTO 4001 
CVFF=REC(LOC ) 
IF(CVFF.EQ.O) RETURN 



40 02 
4001 



LOC=CVFF*RECSIZ 

; CHECKING FOR SHIP IN CTpEL^DAYS. 
T=REC(LOC +2)-TIME-CSATT 
IF(T) 4002,4003,4008 

'4003 I=REC(L0C+5) 

J=REC(L0C+4) 

CNTPOL! I ,J)=CNTPOL!I , J ) +REC ( LOC+ 1 ) 
GOTO 4002 



4008 



RETURN 

FND 



non o no non ooooooonv^ 
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SHIPMENT INPUT ROUTINE DECK 

SUBROUTINE CLASS 
IMPLICIT INTEGER#2 (A-Z) 

REAL«4 CFCUB,CFAF,CFUT,CUESP,CFESPfXADJ 
INTEGER*4 TQtcSC , TOTCSP , CCCUB » CVPB 

COMMON/STATBK/ CFCUBOO ),CCCUB(30 )»CFUT(20,30 ) » CUES P ( 20 1 30 ), 

1 CFESPI30 ),CVPB(20,30 ),XADJ(200 ),CFAF(30 ) , TOTCSC ( 1 s6o ), 

2 T0TCSP(30 ) 

COMMON/CSBLK/ CS F ( 1 500 ) .CSL ( 1500 » , SLP( 10 t 30> , NSLVL 
COMMON/TMPTCN/ TIME, PTCN, PTCNC 

COMMON/RCSTBK/ NXTRP , RELRP , NXTP P , RECS I Z , MXUREC , REC ( 32000) 

INTEGER*4 LOC 

DATA STO/1/, JUMP/0/ 

IF(ST0.EQ,2)G0T0 100 



DTER IS DATE 'JECEIVED 

POD IS PORT OF DEBARKATION (BINARY SEQUENCE NUMBER). 

CT IS TYPE OF SHIPMENT (BINARY). 

WT IS WEIGHT (BINARY). 

CB IS CUBE (BINARY) . 

CON IS CONSIGNEE (BINARY SEQUENCE NUMBER). 

ST0=2 

111 OEAD( 13,101,END=103)DTER, POD,CT, WT,CB, CON,TCNI 
101 F0RMAT(7A2) 



TCNI IS INPUT SHIPMENT NUMBER. 
DTER = DTER+ JUMP 



100 IF(DTER.GT.TIME) RETURN 
PTCN=PTCN+1 



113 I=CON 

CCCUB( POD)=CCCUB( POD)+CB 
TOTCSC( I )=TOTCSC(I)+CB 
TOTCSP(POD)=TOTCSP(POD)+CB 
LOC = CSL( I )=»=RECSIZ 
IF(LOC .EQ.O)GOTO 114 
CALL NXTREC 
REC(LOC )=NXTRP 
CSL( I)=NXTRP 

118 LOC=NXTRP*RECSI Z 
REC(L0C)=0 
REC(L0C+1 )=TCNI 
REC(L0C+2)=CB 
REC( L0C+3)=WT 
REC(L0C+4)-CT 
REC(L0C+5)=DTER 
REC(L0C+6)=P0D 
GO TO 111 
C 

114 CALL NXTREC 
CSL( I )=NXTRP 
CSF( I )=NXTRP 
GO TO 118 

C 

103 REWIND 13 
JUMP=TIME 
GO TO 111 



END 
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VESSEL INPUT ROUTINE DECK 



SUBROUTINE CVIN 
IMPLICIT INTEGER*2 (A-Z) 

COMMON/CVCBLK/ CVF,CVL 
COMMON/TMPTCN/ TIME, PTCN, PTCNC 

COMMON/RCSTBK/ NXTRP , RELR P , NXT PP , RECS I Z , MXUREC , REC ( 32000) 
COMMON/CTPLBK/ CNTPOL ( 20,30) 

INTEGER*4 LOC 

C VIA= VESSEL INPUT ADVANCE PARAMETER. 

DATA VIA/21/ 

DATA SFLAG/1/, J UMP / 0/ , JVYN/ 0/ 

CUT=TIME+VIA 
IF(SFLAG.EQ.2) GO TO 1 
SFLAG=2 

3 READ ( 12, 1002, END=1003) VA , VB , VC, VD , VE , VF , VG 

1002 F0RMAT<7A2) 

VB=VB+JUMP 

1 IF(VB.GT.CUT) RETURN 
CALL NXTREC 
LOC=NXTRP*RECSIZ 
RECILOC )=0 
REC(LOC +1)=0 
RECILOC +2)=VB 
RECILOC +3)=VF 
REC(LOC +4)=VC 
RECILOC +5)=VE 
RECILOC +6)=VD 
RECILOC +7)=VG 
RECILOC +8)=VA 
RECILOC +9)=0 
IFICVL.EO.O) GO TO 2 
LOC=CVL«RECSIZ 
RECILOC)=NXTRP 
CVL=NXTRP 

GO TO 3 

2 CVL=NXTRP 
CVF=NXTRP 
GO TO 3 

1003 JUMP=CUT 
REWIND 12 
GO TO 3 
END 
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CONTAINER BOOKING ROUTINE DECK 



SUBROUTINE CBOOK 
IMPLICIT INTEGER*2 (A-Z) 

INTEGER=f=4 MC,MW,BP 

C0MM0N/CNTBLK/MC(20) , MW < 20) , BP ( 2 0 ♦ 30 ) , S AF ( 20 , 30 ) , NCNT , NPOD, NCON , 

1 NCNTRG,KCNTRG(20) 

REAL«4 CFCUB»CFAF,CFUT,CUESP,CFESP, XADJ 
INTEGER*4 TOTCSC , TOTCSP , CCCUB , CVPB 

CQMMON/STA-^BK/ CFCUB(30 ),CCCUB(30 ),CFUT(20.30 ) , CUESP ( 20 , 30 ), 

1 CFESPI30 ),CVPB(20,30 ),XADJ(200 ),CFAF(30 ) t TOTCSC { 1 500 ), 

2 TCTCSPI30 ) 

COMMON/CVCBLK/ CVF»CVL 
COMMON/TMPTCN/ TIME, PTCN, PTCNC 

COMMON/RCSTBK/ NXTPP , RELRP, NXTpp , RECS I Z , MXUREC , REC ( 32000) 

REAL*4 CRNG,XCMXLB 
INTEGER*4 SEED 

COMMON/PROBBK/ SEED,CRNG(30 ) , XCMXLBI 20 , 30 ),CSTRT(30 ), 

1 CDSTYPI30 ),CRELT(30 ) 

COMMON/CDELBL/ CDELCT, CDELTS , CDELTC, CSATT, CTDEL , MX ADVS , MASOVA 
INTEGER*4 L0C1,LGC2, S EEDL , TEMP , I F I X , C AL LOW , RC A , OC A 
REAL=«'4 VOLtFLOAT, SUMB,CSCB,NTR,UTIFAC,RNDNUM,CUT 
DIMENSION CSCB(30) 

DATA SFLAG/1/ 

IF(CVF.EQ.O) RETURN 

C CSCBU) = CARGO SPACE CURRENTLY BOOKED, POD (J), CARGO CUBIC FEET. 

DO 1 J=1,NP0D 

SUMB=0.0 

DO 2 1=1, NCNT 

2 SUMB = SUM6+FL0AT(CVPB{ I , J) )« CFUT(I,J) 

1 CSCB(J)=SUMB 
L0C1=CVF*RECSIZ 
IF(SFLAG.EQ.2) GO TO 1001 
SFLAG=2 
SEEDL=SEED 
GO TO 1001 

1004 L0C1=REC(L0C1)«RECSIZ 
IFILGCl.EQ.O) RETURN 
1001 P0D=REC(L0Cl+4) 

APDEL=REC(LOC 1+2) -TIME 
IF(ARDEL-CTDEL.LT.l) GO TO 1004 
RCA=REC<L0Cl+3) 

IF(CPELT(POD).GT.ARDEL) RCA=0 
0CA=REC(L0Cl+7) 

IF((RCA.LT.i) •AND.(OCA.LT.I) ) GO TO 1004 
TEMP=ARDEL-C$ATT 

NTR =FLOAT (TOTCSP(POD) ) +FLOAT ( T EM P ) *CFCU B ( POD ) «C FAF ( POD )-C SCB { POD ) 
C. NTR=NET REQUIREMENTS, CARGO CUBIC FEET. 

IF(NTP.LE.O.O) GO TO 1004 
CT=REC(L0Cl+5) 

UTIFAC=CFUT(CT,POD) 

VOL=FLOAT(MC(CT) ) 

C CNEED= CONTAINERS NEEDED 

CNEED= IFIX(.51 + NTR/ ( UT I FAC =«'VCL ) ) 

IF( CNEED.lt. 1) GO TO 1004 
IF(RCA.LT.l) GO TO 3111 
CALLOW=RCA 

IFICNEED.LT. CALLOW) CALLCW=CNEED 
REC(LOC 1+3)= REC (LOCI +3) -CALLOW 
REC ( LOCI +1)=REC(L0C1+1)+CALL0W 
TEMP=CALLOW«MC(CT) 

CVPB( CT, POD)=CVPB(CT, POD)+TEMP 
CSCB(POO)=CSCB(POD)+FLOAT(TEMP )*UTIFAC . 

CNEED=CNEED-CALLOW 
IFICNEED.lt. 1) GO TO 1004 
3111 IF(OCA.LT.l) GO TO 1004 
C ATTEMPT TO BOOK. 

TEMP=ARDEL-CSTRT(P0D) 

IFITEMP.LT.l ) GO TO 1004 
CALL RANDU(SEEDL, SEEDL,RN0NUM ) 

CUT=FLOAT (TEMP) /CPNG( POD) 

IF(CUT.GT.l .0) CUT=1.0 

IF(CUT#XCMXLB(CT, POD) .LT.RNDNUM) GOTO 1004 
IF(CDSTYP(POD) ) 3001,3002,3003 
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3001 GO TO 1004 

3003 CALL RANDLKSEEDLt SEEDLfRNDNUM) 
CUT=FL0AT(0CA)*RNDNUM + .49 ^ 
CALLOW=IFIX(CUT) 

GO TO 3004 

3002 CALLOW=OCA 

3004 IF ( CNEED. LT, CALLOW) CALLOW=CNEED 
REC LOCl+7)=REC(LOCl+7)-CALLOW 
REC(LOC1+1)=REC(LOC1+1)+CALLOW 
TEMP=CALLOW*MC( CT ) 

CVPB(CT, POD)=CVPB(CT, POD)+TEMP 
CSCB(POD) =CSCB(POD)+FLOAT(TEMP)«UTIFAC 

GO TO 1004 
END 



STATE ROUTINE DECK 

SUBROUTINE STATE 
IMPLICIT INTEGER=5'2 ( A-Z ) 

INTEGER*4 MC,MW.BP 

l^NCNTRG^KCNTRG?2of°* ’ ^20 ) , B P ( 20 1 30 ) , S AF ( 20 , 30 ) ,NCNT,NPOO,NCON, 

REAL«4 iFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER*4 TOTCSC , TOTCSP , CCCUB , CVPB 

COMMON/STATBK/ CFCUB(30 ),CCCUB(30 )tCFUT(20.30 ) .CUESP ( 20,30 ), 
2 TofcSP ?30 )fXA 0 J (200 ),CFAF(30 ), TOTCSC ( 1 s6o ), 

='2000. 

COMMON/CTPLBK/ CNTPOL ( 20,30) 

WRITE(6,4) TIMF,MXUREC 
h FORMAT( • 1' , 2110) 

WRITE (6, 1) (CFCUB(J) ,TOTCSP( J) ,J=1,NP0D) 

FORMAT! FIO.O, 110) 

(TOTCSC! K) ,K=1,NC0N) 



i J ) , I = 1,NCNT) 



WRITE!6,2) 

FORMAT! lOIlO) 

WRITE!6,3) !!CFUT!I, 

FORMAT! 16F5.2) 

WRITE!6,9) !! CVPB ! I , J ) , CNTPOL ! I 
FORMAT! IX, 16! 16, I 2) ) 

RETURN 

END 



J=1,NP0D) 

J) ,I = 1,NCNT) , J = 1,NP0D) 



CARDS AT END OF PROGRAM DECK 



/7lINK.SYSLM0D DD DSNAME=F0826.CSSM!P1 ) ,DISP=!NEW,KEEP), 
// UNIT=2314,V0LUME=SER=DUFFY,LABEL=EXPDT=74180, 

SPACE=!CYL,! 2, , 1) ) 



FLOW CHART OF THE SHIPMENT INPUT ROUTINE 
(Subroutine CLASS) 
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SHIPMENT INPUT ROUTINE STEP ANNOTATION 



1. Is this the first time the routine has been called? If not, go to k 

2. Set JUMP equal to zero. 

3. Read the next record on the shipment input file, and increment the 
arrival day by JUMP (i.e. DTER = DTER + JUMP); if end-of-file, go to 7. 

k. If the arrival day of the shipment segment is greater than the current 
day, return to the calling program. 

5. Increment the number of Shipment arrivals, and increase consignee and 
POD volume accumulators by the shipment segment volume. 

6. Add the shipment data record to the consignee's shipment stack, and 
go to 3. 

7. Rewind the shipment input file. 

8. Set JUMP equal to the current day, and go to 3. 



(Ill) 

(100) 

(103) 
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FLOW CHART OF THE CONTAINER STUFFING ROUTINE (Sheet l) 




0 
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FLOW CHART OF THE CONTAINER STUFFING ROUTINE (Sheet 2) 
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CONTAINER STUFFING ROUTINE STEP ANNOTATION 



1. Set the stuff able container group to 1 (ICNTRG = l) , and the 
chapter flag to 1 (FLAG = l) . Also, initialize miscellaneous 
variables, and calculate current stuff able time horizon cutoffs. 

lA. Set the container vessel segment pointer to the beginning of the stack. 

IB. Is there another vessel section in the container vessel stack? If not, 
go to 36. 

2. Does the identified vessel arrive during the current stuffable time 
horizon? If not, go to IB . (i.e. if the arrival time is not 
between (TIME + CSATT) and (TIME + MASDVA) , then go to IB) . 

3. Are thre any remaining containers for this vessel section which are 
booked but not as yet stuffed? If not, go to IB. 

h. Let (l) = vessel section’s container type. 

Let (J) = vessel section’s POD. 

UA. Is container type (l) in the stuffable container group? If not 
go to IB. 

5. Are there any containers of type (l) allocated to POD (j) 
physically available at the stuffing station? If not, go to IB. 

(i.e. if CNTPOL (l,j) < 1, then go to IB). 

6. Are the (l) and (j) values of the container previously stuffed 
today the same as the new (l) and (j) values? If so, then go 
to 13. (Going directly to step 13 continues the stuffing exactly 
where the previous container left-off. ) 

7. Let MAXCC = Maximum cargo volume for container type (l). 

Let MAXCCA = maximum cargo usable volume for container type (l). 

Let MAXWW = maximum cargo weight for container type (l). 

Let BKP = the breakeven volume for container type (l) for POD(j). 

8. Locate the starting point of the stuffing lists in chapter (FLAG) of 
POD (j), and go to 12 . 

9. Jump to the next stuffing list, and check to see if it is the one 
which we began with in step 8; if it is then go to IB, otherwise 
go to 13. 

12. Does the current chapter have any stuffing lists? If not, then go 
to 38. 



(2001) 

( 1 ) 

(511) 

( 1111 ) 



(105) 

(101) 



(103) 



13 . 
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(102) 



Compute the total volume of cargo for the consignees on the 
current stuffing list. 

1 4 . Compute the adjusted minimum load requirement by multiplying 
the value of (BKP) determined in step 7 . by the adjustment 
factor associated vith the current stuffing list number. 

15. If the volume computed in step does not exceed the value 
computed in step then go to step 9 . 

16. Let MAXC = MAXCCA, MAXW = MAXWW. (MAXC and MAXW represent the 
remaining stuffable volume and remaining stuffable weight for the 
container respectively.) 

17. Identify the next consignee on the current stuffing list. Also, 
identify the next shipment segment for the current consignee. 

18. If there is not a shipment available, then go to 26 . 

19. Will the current shipment segment fit into the container? If 
not, then go to 28^. (i.e. if either the volume of the segment 
is greater than (MAXW), then go to 28 . ) 

20 . Calculate the age of the shipment just loaded in the container 
and reduced the current inventory volumes for the consignee and 
POD, reduce MAXC and MAXW accordingly, and increment the 
number of shipment segments loaded in the van. Also, tabulate 
volume and weight statistics. 

21 . If the shipment segment is part of a split shipment and is not. 
the last segment of the split shipment, then go to 23 * 

22 . Tabulate age statistics. 

23. If the current shipment is not for the same consignee previously 
loaded in the container, then increment (SCFLAG) which represents 
the number of consignees loaded in the container. 

24 . If the shipment segment just loaded into the container was just 
split, then go to 30 * 

25. Remove the shipment segment record from the containerizable 
shipments stack. Also, identify the next shipment segment for 
the current consignee and go to I8 . 

Identify the next consignee on the stuffing list. (The next con- 
signee could possibly be on the next stuffing list.) 



(225) 
(22k) 

(2223) 

(227) 

(226) 



26. 



(221) 



158 



27. If the current consignee is at the beginning of a new stuffing list 
then go to step otherwise go to 17 . 

28 . If the remaining stuffable volume in the container is less than the 
minimum split volume (MNSPLV), then go to 30 * 

29. The current shipment segment is split so that part of it can be 
loaded into the container and meet volume and weight restrictions. 
Go to step 20 . 

30. Reset the stuffing pointer back to the beginning of the stuffing 
list Just used to load the container. 

31. Store the current stuffing pointer for the current stuffing list 
chapter and POD for future reference. 

32. Adjust data in the container vessel stack to reflect the closing 
out of a newly stuffed container. Also, adjust booking and con- 
tainer pool data. 

33 . Create a record with the appropriate information for the stuffed 
container stack. 

3 ^. Tabulate and report container statistics. 

35. Add the record created in step 33 to the stuffed container stack, 
and go to step 

36. Is this the last container group? If so, go to 38 . 

37. Increment the stuffable container group (ICNTRG), and go to lA. 

38. If this is the last chapter of the stuffing lists, return to the 
calling program. 

39. Set the stuffable container group to 1 (ICNTRG = l) , increment 
the stuffing list chapter (FLAG = FLAG + l) , and go to LA. 



(222) 

(2221) 

(251) 



(2036) 



FLOW CHART OF THE VESSEL INPUT ROUTINE 



(Subroutine CVIN) 




) 
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VESSEL INPUT ROUTINE STEP ANNOTATION 

Variables are set to the following initial values by the compiler: 

VIA = 21 
JUMP = 0 

1. Calculate planning horizon cutoff day (i.e. CUT = TIME + VIA) 

2. If this is not the first time the subroutine has been called , 
then go to 5 

3. Read a record from the vessel file. If the end-of-file has 
been reached, go to 7* 

4. Adjust arrival date of vessel by the value of the variable 
JUMP (i.e. VB = VB + JUMP). 

5. If the vessel arrival day is greater than the planning horizon 
cutoff day, then return to the calling program. 

6. Add the vessel segment data record to the end of the vessel stack, 
and go to 3. 

7. Rewind the vessel file. 

8. Set JUMP equal to the current day, and go to 3. 



(3) 



( 1 ) 



( 1003 ) 
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FLOW CHART OF THE BOOKING ROUTINE 
(Subroutine CBOOK) 



START 



3 — O— ^ 



10 



11 



12 



13 . 






16 



15 
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BOOKING ROUTINE ANNOTATION 



1. Calculate the volume of cargo currently booked for each POD . This (l) 

is accomplished by taking the total volume of containers booked and 
multiplying that by the contemporary (forecasted) container volume 
utilization factor. The result for the (J)th POD is stored in 

CSCB (J) 

2. Locate the first vessel data in the container vessel stack (list), 
and go to 

3. Identify the next vessel data in the container vessel stack; (lOOH) 

if no more vessels are present, return to the calling program. 

U. Identify the POD to which the vessel is destined. 

5. If the vessel will arrive in less than CTDEL days, go to 3. 

(CTDEL is the time required to dispatch, stuff, and transfer 
containers back to the pier.) 

6. Are there any containers available for booking on the vessel? 

If not go to 3. 

7. Calculate the net cargo booking requirements by taking the on-hand 
cargo volume for the POD, adding the forecasted volume that will 
arrive between now and the latest effective stuffing date, and sub- 
tracting the volume already booked (CSCB). The forecasted volimie 
is adjusted by the CFAF factor. 

8. If net requirements are less than zero, go to 3. 

9. Given the container type of the vessel section, calculate the number 
of containers needed to meet the net volume requirements calcxilated 
above . 

10. If no containers are needed, go to 3. 

11. If there are no remaining unbooked basic reserve containers go to 

12. Allocate basic reserve containers to the request. This is done by 
decrementing the unbooked basic reserve, and incrementing the number 
of containers booked for the stuffing station. Also, the outstanding 
booked cargo and container voliomes are updated. 

13. Are there any beyond basic reserve containers available? If not, (311l) 

go to 3. 

1^. Is a booking possible? If not, go to 3. This is determined in the 

following random fashion. Let AEDEL equal the number of days before 
the vessel’s arrival. If ABDEL is less than CSTRT, then reject 
the request. If ABDEL is greater than. (CSTBT + CBNG), then accept 
the request XCMXLB of the time. If ABDEL is between CSTBT) and 
(CSTBT + CBNG), then accept the request ((ABDEL - CSTBT)/CBNG) * 

XCMXLB of the time. In simple terms, the probability of accepting a 
booking request increases the farther it is in advance of the vessel’s 
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arrival , 

15 . Given that the booking request is accepted, the number of containers 
to be booked is now determined. If CDSTYP equals zero, then all 
unbooked beyond basic reserve containers are made available to the 
request. If CDSTYP equals one, only a uniformly distributed random 
portion of the containers are made available. 

16 , For the containers booked, decrement the remaining number of unbooked 
beyond basic reserve containers, increment the number of containers 
booked for the stuffing station, and update the outstanding booked 
cargo and container volume data. Go to 3. 



(3004) 
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FLOW CHART OF THE CONTAINER LIFT ROUTINE 
(Subroutine CL) 
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CONTAINER LIFT ROUTINE STEP ANNOTATION 



1. Are there any vessels in the container vessel stack? If not, return (2) 

to the calling program. 

2. Does the vessel arrive today? If not return to the calling program. 

3. Identify the POD, and voyage number. Also, initialize to zero the 
following accumulators: 

Total Number of Containers (TOTN) 

Total Number of Single Consignee Containers (TOTNSC) 

Total Volume of Cargo, cubic feet (TOTC) 

Total Weight of Cargo, pounds (TOTW) 

Total Container Ages (TCAGE) 

Total Number of Shipments (ITSH) 

Total Age of Shipments (ITAGE) 

Total Number of Shipment Segments (ITPARC) 

k. Search through the stuffed container stack to find those containers 
which are booked on the arriving vessel. For each container found, 
up-date the appropriate accumulators and delete the record from the 
stack. Continue, this until all containers designated for the vessel 
are found. 

5. Compare the number of containers found with the number of containers (25) 

which the vessel record indicates as having been stuffed. These amounts 

must be equal. 

6. Calculate the average volume and weight utilization for this block of 
containers. Update the container volume utilization forecast (CFUT) 
using the exponentially weighted average method. 

T. Calculate the average container age for this block of containers. 

Also, calculate average shipment age. 

8. If requested, write summary data concerning this block of containers 
on logical unit UNTIO. 

9. Tabulate data for the simulation summary output. 
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10. Update the booked container volume accumulator by reducing (CVPB) 
by the volume of the containers which were booked on the vessel, 
but remain unstuffed in the empty container pool. Also, delete 
these unused containers from the container pool (CNTPOL), and 
delete the vessel segment record on which tie containers were booked. 

11. If requested^ write miscellaneous data on to the designated output 
files. Go to 1. 
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FLOW CHART OF THE CONTAINER DISPATCH ROUTINE 
(Subroutine CD) 
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CONTAINER DISPATCH ROUTINE STEP ANNOTATION 



1. Identify the location of the data pertaining to the first vessel in 
the container vessel stack, and go to 3. 

2. Identify the location of the data pertaining to the next vessel in 
the container vessel stack. 

3. Does identified location indicate that no more vessel records exist? 
If so, then return to the calling program. 

h. If the vessel arrives CSATT days from now, then go to the next 
step. If the vessel arrives in less than CSATT days, then go to 
2, If the vessel’s arrival is greater than CSATT days, then return 
to the calling program. 

5. Dispatch the numher of containers booked for the stuffing station 
to the empty container pool, and go to 2. 
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FLOW CHART OF THE MAIN PROGRAM 
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MAIN PROGRAM STEP ANNOTATION 



1. Initialize record pool parameters RECSIZ, MXUREC , and LSTREC . 
RECSIZ and MXUREC must be set to ten and zero respectively. 

LSTREC must be set to the dimension of the REC() array less the 
quantity (RECSIZ - l). 

2. Read the logical unit niomber file which designates the files \inits on 
which the transaction reports are to be written. 

3. Read the card containing simulation run parameters. 

U, Read six files containing compacted parametric data. 

5. Initialize POD and consignee accumulators, and set stack pointers 
to zero. 

6. Set up the record pool. 

7. Calculate delay parameters, and initialize time, shipment, and 
container counters. 

8. Initialize operations statistics accumulators. 

9. Print designated headings. 

10. Increment the time coiinter. 

11. Is the current time a multiple of seven? If not, go to 13* 

12. Calculate the average daily voliome input to each POD by taking the 
volume which arrived during the last seven days and dividing that 

by seven. Then using the exponentially weighted average method, 
update the (forecast) average. 

13. Call the container dispatch, shipment input, stuffing, vessel input, 
container lift, and booking routines in the above order, 

lU . Update shipment and container coiinters. 

15. If the current time is less than the designated simulation length, 
go to step 10. 

16. Calculate and print operations statistics, and stop. 



APPENDIX D 



Data Analyses Files and Programs 
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F ORMAT OF POD OPERATIONS SUMMARY FILE 

If requested in the simulation program, the following set of cards are 
punched for each POD. 

Card 1: 



Card Columns 


Contents 


1-2 


POD sequence number 


3 


1 will be punched in this column 


4-11 


Number of shipments stuffed (F8.0) 


12-16 


Average age of shipments at stuff (F5.2) 


17-21 


Standard deviation of age (F5.2) 


22-31 


Stuffed cargo volume, cubic feet (FIO.O) 


32-37 


Single consignee cargo proportion (F6.4) 


38-43 


Container volume utilization proportion (F6.4) 


44-49 


Volume utilization for single consignee vans (F6.4) 


50-55 


Volume utilization for mixed vans (F6.4) 


56-66 


Stuffed cargo weight, pounds (Fll.O) 


67-72 


Container weight utilization proportion (F6.4) 


73-80 


Simulation run code (2A4) 



Card 2: 




1-2 


POD sequence number 


3 


2 will be punched in this column 


4-8 


Duration of simulation, days (F5.0) 


9-14 


Average shipments stuffed per day (F6.1) 
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15-21 


Average volume stuffed per day (F7.1) 


22-29 


Average weight stuffed per day (F8.1) 


30-34 


Number of lifts (F5.0) 


35-40 


Average time between lifts, days (F6.2) 


41-46 


Standard deviation of time between lifts (F6.2) 


47-52 


Average container age, days (F6.2) 


53-58 


Standard deviation of container age (F6.2) 


73-80 


Simulation run code (2A4) 



Card 3: 




1-2 


POD sequence number 


3 


3 will be punched in this column 


4-5 


Container type sequence number 


6-9 


Number of single consignee containers stuffed 


10-17 


Number of shipments stuffed into single consignee 
containers . 


18-23 


Volume utilization proportion for single consignee 
vans. (F6.4) 


24-33 


Cargo volume stuffed into single consignee vans 
(FIO.O) 


73-80 


Simulation run code 



Card 4: 




1-2 


POD sequence number 


3 


4 will be punched in this column 



The information punch in card 3 was for single consignee 
vans; the same information in the same format is punched 
for mixed vans on card 4. 



1-2 



POD sequence number 



3 5 will be punched in this column 

The information for both single and mixed consignee vans 
will be punched on card 5 in the same format as cards 3 
and 4. Also, the following information will be included 
on card 5. 

34“39 Average days between lifts for the 

container type. (F6.2) 

40-45 Standard deviation of days between lifts 



(F6.2) 



The cards 3 through 5 will be repeated for each container type serving 
the POD. 
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FORMAT OF THE CONSIGNEE OPERATIONS SUMMARY FILE 

Card Columns Contents Type 

2-4 POD mnemonic A/N 

6-11 Consignee mnemonic A/N 

13-18 Breakbulk point mnemonic A/N 

19-22 POD serial number I 

23-26 Consignee serial number I 

27-30 Breakbulk point serial number I 

31-35 POD volume proportion times 10000 I 

36-42 Total cargo volume received by consignee 

(cubic feet) I 

43-47 Total number of shipments received by the 

consignee I 

48-54 Average age of shipments 

(age at stuff, days) F 

55-61 Total cargo volume received in single consignee 

vans (cubic feet) I 

62-67 Proportion of volume received in single consignee 

vans F 

68-74 Volume received by the breakbulk point serving 

the consignee (cubic feet) I 
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FORHAT OF THE PERFORMANCE TRADE OFFS REGRESSION CARD FILE 

(One card for each POD and each simulation run.) 

CXhis file is produced by the POD Operations Summary 
Selection Program.) 



Card Columns 


Contents 


1-3 


POD number. (I) 


4-8 


Average cargo age at stuff, days. (F5.2) 


9-14 


Single consignee cargo proportion. (F6.4) 


15-20 


Container volume utilization proportion. (F6.4) 


21-26 


Cross product of above two fields. (F6.4) 


27-32 


The proportion of single consignee shipments. (F6.4) 


73-80 


Alphanumeric run code of the simulation run which 
produced this data. 
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PROGRAM DECK USED FOR LOADING POD OPERATIONS SUMMARY 
CARDS ON TO A PERMANENT FILE 



//BOXSIOIA JOB (0826,0232FP,55HJ),' J 
// EXEC FORTCLG 
//FORT.SYSIN DD * 



P. HYNES* 



3 

11 



/<* 



THIS PROGRAM TRANSFERS CARD IMAGES FROM LOGICAL UNIT 5 TO 11. 
INTEGER*4 DATA 
DIMENSION DATA(20) 

NREC=0 

READ(5|2.END*3) DATA 
FORMAT (20A4) 

NREC = NREC +1 
WRITE(11»2) DATA 
GO TO 1 

WRITE(6,11) NREC 

FORMAT! • NUMBER OF RECORDS TRANSFERED =',I7) 

STOP 

END 



//GO.FTllFOOl DD UNIT=2314, DSNAME=F0826.0A2Q3P3, 
// DISP=(MOD,KEEP) ,VOLUME=SER=LINDA, 

// LABEL=EXPDT=74180.SPACE=(CYL,2) t 

// DCB=( RECFM=FB,LRECL=80,BLKSIZE=7280) 

//GO.SYSIN DD ♦ 

(POD OPERATIONS SUMMARY CARDS GO HERE) 

/* 



OOOOOOOOOOOOOOO 
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POD OPERATIONS SUMMARY SELECTION PROGRAM DECK 



//B0X$101Z JOB (0826, 0232FP, 55HJ) ,'J.P. HYNES' 

// EXEC FCRTCLGP 
//FORT .SYS IN DO * 

POD OPERATIONS SUMMARY SELECTION PROGRAM 

THIS PROGRAM SELECTS SPECIFIC SIMULATION OUTPUT DATA FROM 
THE POD OPERATIONS SUMMARY CARD FILE, AND PUNCHES IT ON 
CARDS. THESE CARDS , IN TURN, ARE USED IN REGRESSION 
PROGRAMS. THESE PUNCHED CARDS ARE REFERRED TO AS THE 
PERFORMANCE TRADE OFFS REGRESSION CARD FILE. 

FILE 11 IS THE FILE CONTAINING THE POD OPERATIONS SUMMARY CARD 
IMAGES FOR THE RUNS WHOSE DATA IS BEING SELECTED. 

THE FIRST PORTION OF THE PROGRAM SCANS THE DATA FILE IN ORDER 
TO DETERMINE ITS STRUCTURE. 

THE SECOND PHASE SELECTS AND SUMMARIZES DATA FOR 
PUNCHING ON CARDS. 

NR= NUMBER CF RUNS 
NP= NUMBER OF PODS 

NC(I,J) = NUMBER OF CONTAINER TYPES USED FOR PCD (I), RUN (J). 
IMPLICIT INTEGER*2 (A-W) 

IMPLICIT INTEGER*4 (X) 

IMPLICIT REAL*4 (Y) 

IMPLICIT REAL*8 (Z) 

DIMENSION NPR(40) 

DIMENSION NC(30,40) 

NR=0 

3 READ(ll,2,END=8) P , C , XRNl, XRN2 
2 FORMAT! 12, I l,69X,2A4) 

IF(NR.EQ.O) GO TO 7 

IF( (XLRl.NE.XRNl) .OR. (XLR2.NE.XRN2) ) GO TO 5 
IF(LP.EQ.P) GO TO 4 
NC( NP,NR)=(NCPC-2)/3 

6 NP=NP-H 
LP = P 
NCPC=0 

4 NCPC=NCPC + 1 
GO TO 3 

5 NPR(NR)=NP 
NC(NP,NR)=(NCPC-2)/3 

7 NR=NR+1 
XLRI=XRN1 
XLR2=XRN2 
NP=0 

GO TO 6 

8 NC(NP,NR)=(NCPC-2)/3 
NPR(NR)*NP 
WRITE(6,11) NR,NP 

OF RUNS=',I5,'. NUMBER OF PODS IN LAST RUN=',I5) 



11 



format (^ NUMBER 
REWIND 11 



22 



26 



24 

23 



25 

21 



YSC,YVU,XRN1,XRN2 
2F6.4,29X, 2A4I 



A 



DO 21 J=1,NR 
NP=NPR( J) 

DO 21 I*1,NP 

READ(11,22) POD, YTM, 

FORMAT! l2,lX,8X,F5.2,5X,iOX, 

NCT=NC! I ,J) 

READ!11,26) XDUMMY 
F0RMAT!A4) 

XTNS=0 
XTNSCS=0 
DO 23 K=1,NCT 
READ(11,24) XNSCS,XNLS 
FORMAT! 9X, 18,// ,9X, 18) 

XTNSCS=XTNSCS+XNSCS 

XTNS=XTNS + XNLS . , . . 

YSPSC= FLOAT ! XTNSCS)/ FLOAT! XTNS ) 

YCSU= YSC^YVU 

WRITE! 7, 25) POD, YTM, YSC , YVU, YC SU , YSPSC ,XRN1,XRN2 
F0RMAT!I3, F5.2,4F6.4,40X,2A4) 

CONTINUE 

STOP 

END 



//GO.FTllFOOi DD UN IT=2314, DSNAME 
// V0LUME=SER=LINDA, LABEL=! , , , 



F0826.0A2Q3P3,DISP=! OLD, KEEP) 
IN) 
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CONSIGNEE DATA SUMMARY PROGRAM DECK 



//HYN$101K JOB (0826,0232FP,55HJ) 
// EXEC FORTCLGP, REGION. GO=58K 
//FORT.SYSIN DO ♦ 



•J.P. HYNES' , TIME=9 



C 

C 

C 

C 

C 

C 

C 



5 

16 

17 

14 

11 



C 

C 



13 



15 

12 

1 



CONSIGNEE DATA SUMMARY PROGRAM 

THIS PROGRAM SUMMARIZES CONSIGNEE CARGO PERFORMANCE DATAt AND 
PUNCHES THE CONSIGNEE OPERATIONS SUMMARY FILE. 

UNIT 21 IS THE FILE WHICH CONTAINS THE SHIPMENT SEGMENT STUFF 
TRANSACTION REPORTS. 

UNIT 24 IS THE CONDENSED SERIAL FILE (IT PROVIDES THE CONSIGNEE 
MNEMONICS.) 

IMPLICIT INTEGER*2 (A-W) 

IMPLICIT INTEGER#4 (X) 

IMPLICIT REAL*4 (Y) 

IMPLICIT REAL*8 (Z) 

DIMENSION XTCV(600) ,XSCV(600) ,XBPV( 100) ,XCS ( 6 00) , XTSA( 600 ) 
DIMENSION DATA( 10) f TV(600) 

NBBP=100 

NCON=600 

PNCH=0 

PNCH=1 

DO 4 I=1,NBBP 
XBPV( I )=0 
DO 5 I*1.NC0N 
XTCV( I )=6 
XSCV( I )=0 
XCS( I )=0 
XTSA( I)=0 
DO 17 I=1,NC0N 
TV( I )*0 

READ(21,11,END=12) DATA 
FORMAT! 10A2) 

IF(DATA( 1) .EQ.ll) GO TO 13 
C=DATA(8) 

X=DATA(4) 

XTCV(C)=XTCV(C)+ X 
TV(C)=TV(C)+X 
IF(DATA(3).LT.l) GO TO 14 
XCS(C)=XCS(C) + 1 
X=DATA(9) 

XTSA(C)=XTSA(C) + X 
GO TO 14 
X=DATA(5) 

B=DATA( 10) 

XBPV(B)=XBPV(B)+X 
IF(DATA(9) .LT.l) GO TO 16 
DO 15 I*1.NC0N 
XSCV( I )=xkV( I)+TV( I ) 

TVd ) = 0 
GO TO 14 

READ(24, 1,END=2) XPOD , XCNl tCN2 , XBPl ,BP2 , SCN i SPOD, SBPt PR P 
FORMAT! A3,2(A4,A2),4A2) 



YAGE=0.0 

YSCP=0.0 

IF!XCS!SCN).LT.l) GO TO 18 
YAGE=FLOAT!XTSA!SCN) )/ FLOAT ! XCS ! SCN ) ) 

YSCP=FLOAT!XSCV!SCN) ) /FLOAT! XT CV ! SCN) ) 

18 CONTINUE 

WRITE!6f21) XP0D.XCN1,CN2,XBP1,BP2.SP0D,SCN.SBP,PRP, 

* XTCV(SCN) ,XCS!SCN| , YAGE ,XSCV ! SCN) , YSCPt XBPV ( SBP ) 

IF! PNCH.EQ.l )WRITE!7, 21) XP0D.XCNl.CN2t XBPl. BP2i SPODi SCN.SBPtPRPt 

* XTCV(SCN) ,XCS!SCN) , YAGE, XSCV ! SCN ) ,YSCP, XBPV ! SBP ) 

21 F0RMAT!lX,A3,ix,A4,A2,ix,A4,A2,3I4,I5,I7,I5,F7.3, I7,F6.3, 17) 

GO TO 12 
2 STOP 



END 

//G0.FT21F001 

// 

// 

//GO.FT24F001 



// 



DD DSNAME=F0826.SACTQ3P3,UNIT=2400,DISP=!0LD,KEEP) 
V0L=SER=NPS106, LABEL* ! l.SL). 
DCB=!RECFM=FB.LRECL*28,BLKSIZE=3976) 

DD DSNAME=F0826.MT024,UNIT=2314,V0L=SER*LINDA, 



DISP=!OLD,KEEP) ,LABEL=! 



IN) 



ooon ooooo on on onooooo noovoo 



CONSIGNEE CARGO AGE HISTOGRAM PROGRAM DECK 



A/B0X$101H JOB (0826,0232FT,55HJ),'J.P.HYNESSTIME=4 
// EXEC FORTCLG, REGION. G0=100K 

CONSIGNEE CARGO AGE HISTOGRAM PROGRAM 

UNIT 16 IS THE ABBREVIATED SHIPMENT STUFF TRANSACTION REPORT FILE. 
FORT.SYSIN OD * 

PROGRAM TO PLOT A HISTOGRAM OF AGE VS. FREQUENCY OF OCCURRENCE 
FOR SOME NUMBER OF CONSIGNEES 

REAL«4 XAGE.SAGE, SAGE2,XNUM,XSO 
INTEGER*2 T I ME , DOA, PTCN , POD, CON , AGE , KCON 
INTEGER*4 AGE4 

DIMENSION RANGE(20), FREQ(20) , I CON (100) , T I TLE ( 24 ) , KC CN( 1 500 ) 

IN IS THE NUMBER OF INTERVALS, LE 20 
FREQ IS A VECTOR OF FREQUENCIES, LT 10,000 
RANGEIS A VECTOR OF MID-POINTS FOR EACH INTERVAL 
TITLE IS A VECTOR OF 24 WORDS 

MAXIMUM NUMBER OF INTERVALS BEING USED IN THIS CASE 
K IS DEVICE NUMBER WHERE AGED CARGO DATA RESIDES 
K=16 
IN=20 

CHANGE THE VALUE OF RANGE(l) TO THE MID-POINT OF THE FIRST INTERVAL 
RANGE(1)=0.5 
DO 101 1=2,20 

CHANGE THE ADDITIVE CONSTANT TO THE VALUE OF THE INTERVAL WIDTH 
RANGE( I )=RANGE(I-1) + 1.0 

101 CONTINUE 

READ IN THE TITLE TO BE USED ON THE HISTOGRAM 
TITLE USES A MAXIMUM OF 96 CHARACTERS 

48 CHARACTERS ON FIRST CARO, 48 CHARACTERS ON SECOND CARO 
ITIME STARTS IN SPACE 51 (15), NCON IN SPACE 56 (15) 

102 READ(5, 103, EN0=112)(TITLE(I), 1=1, 24), ITIME, NCON 

103 FORMAT! 12A4,/,12A4,2X, 215) 

READ IN CONSIGNEES AS ICON UP TO THE NUMBER SPECIFIED BY NCON 
ICON IS CONSIGNEE SEQUENCE NUMBER 

ICON IS IN FORMAT 14, 18 CONSIGNEES TO A CARD 
READ (5, 104) ( ICON! I ) , 1=1, NCON) 

104 F0RMAT(18I4) 

DO 105 1=1,1500 

105 KC0N(I)=1 
DO 106 1=1, NCON 

106 KCONdCON! I ) )=2 
DO 107 J=l,20 
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FREQ( J)*0.0 

107 CONTINUE 
NUMB=0 
SAGE=0.0 
SAGE2=0.0 

READ DATA FROM DEVICE DESIGNATED BY K IN DATA STATEMENT 

108 READ(K» 109, END= 110) TIME, AGE.CON 

109 FORMAT (3A2) 

IF(TIME.LT.ITIME)GOTO 108 
IF(KC0N(C0N) .EQ. DGOTO 108 

IAGE=AGE/7 + 1 

CALCULATE MEAN AND STANDARD DEVIATION 
AGE4=AGE 
XAGE=FLOAT( AGE4) 

SAGE=SAGE + XAGE 
SAGE2=SAGE2 + XAGE**2 
NUMB=NUMB + 1 
IF( IAGE.GT.20)IAGE=20 
FREQ( IAGE)=FREQ( I AGE)+1 
GOTO 108 

110 CALL HISTC( IN, FREQ, RANGE, TITLE ) 

XNUM=FLOAT(NUMB) 

XMEAN=SAGE/XNUM 

XSD=SQRT( (SAGE2 - ( ( S AGE**2 ) /XNUM ) ) /XNUM ) 

WRITE(6,111)XMEAN,XSD 

111 FORMAT!* mean =',F6.2,' STANDARD DEVIATION =',F6.2) 

REWIND K 

GOTO 102 

112 STOP 
END 

SUBROUTINE HISTO 
PURPOSE 

PRINT A HISTOGRAM OF FREQUENCIES VERSUS INTERVALS 
USAGE 

CALL HISTO! IN, FREQ, RANGE, TITLE) 

DESCRIPTION OF PARAMETERS 

IN - NUMBER OF INTERVALS ! ABS! I N ) .LE .20 ) 

IF IN IS POSITIVE, THE VALUES OF RANGE ARE PRINTED 
AS FLOATING POINT VALUES !F5.2). IF IN IS NEGATIVE 
THE VALUES OR RANGE ARE PRINTED AS INTEGERS !I5). 
FREQ - VECTOR OF FREQUENCIES 

RANGE ~ VECTOR OF MID-POINTS OF EACH INTERVAL, IN ONE-TO-ONE 
CORRESPONDENCE WITH ELEMENTS OF FREQ. SEE PARAMETER 
IN FOR SIZE SPECIFICATION LIMITS. 

TITLE - VECTOR OF 24 WORDS CONTAINING A TITLE TO BE PRINTED 
AT THE TOP OF THE HISTOGRAM. MUST BE SET TO BLANKS 
IN THE CALLING PROGRAM WHEN NOT USED. 

REMARKS 

THE USER MUST SCALE HIS OWN DATA FOR VECTORS FREQ AND RANGE 
IF THEY DO NOT FALL WITHIN THE PRESCRIBED LIMITS. 

FREQUENCIES MUST BE POSITIVE NUMBERS. 

SUBROUTINES AND FUNCTION SUBPROGRAMS 
NONE 

METHOD 

THE MAXIMUM FREQUENCY IS DETERMINED. SCALING IS USED WHEN 
THE MAXIMUM EXCEEDS 60. WHICH IS THE NUMBER OF LINES USED 
TO PRINT THE HISTOGRAM. THE SCALE IS PRINTED AT THE BOTTOM 
OF THE PAGE. 

SUBROUTINE HISTO! IN, FREQ.RANGE ,T ITLE ) 

DIMENSION FREQ ! 20 ), RANGE! 20) , JOUT ! 20 ) , T I TLE ! 24 ) 

DATA NOTH/' W iK/ •****• / 

WRITE !6,4) TITLE 

4 FORMAT! • l',//,8X, 12A4 , / , 8X, 12 A4/ ) 

JN = IN 
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INT=0 

IF(JN.GT.O) GO TO 10 

INT=1 

JN=-JN 

10 00 12 1*1, JN 
12 JOUT( I )=FREQ( I) 

WRITE (6,5) (JOUT(I) , I*1,JN) 

5 FORMAT( • OFREQUENCY* ,2016) 

WRITE (6,7) 

7 FORMAT( • -• ,128( ) ) 

C FIND LARGEST FREQUENCY 

FMAX=0. 

DO 20 1*1, JN 

IF(FREQ( ll.GT.FMAX) FMAX=FREQ(I) 

20 CONTINUE 
C SCALE 

JSCAL=1 

IF(FMAX.GT.60.) JSCAL=( FMAX+59. )/60. 

FSCAL=JSCAL 
DO 50 I=1,JN 

50 JOUT( I )=NOTH 
MAX=FMAX/FSCAL 
DO 80 1=1, MAX 
X=MAX-( I-l) 

DO 70 J*1,JN 

IF(FREQ( JI/FSCAL.GE.X) JOUT(J)=K 
70 CONTINUE 
IX=X*FSCAL 

80 WRITE (6,2) I X, ( JOUT ( J ) , J=1 , JN ) 

2 FORMAT( I6,4X,20(2X, A4) ) 

WRITE (6,7) 

IF(INT.EQ.l) GO TO 16 

WRITE (6.3) (RANGE(J) ,J=1, JN) 

3 FORMAT( •0INTERVAL*,2X, 19(F5.2,1X) ,F5.2// ) 

GO TO 15 

16 DO 51 1*1, JN 

51 JOUT( I )=RANGE(I ) 

WRITE (6,6) ( JOUTd ) , I=1,JN) 

6 FORMAT ( '0INTERVAL',2X,19(I5,1X), 15//) 

15 WRITE (6,1) K,JSCAL 

1 FORMAT( • OEACH *,A4,' EQUALS ',13,' POINTS'/) 

RETURN 

END 

A 

//GO.FT16F001 DD DISP*( OLD , KEEP) , UNIT=2321,VCLUME=SER*CEL003, 
// DSNAME=F0826.MT016,LABEL=(, , , IN) 

//GO.SYSIN DD ♦ 

HISTOGRAM PLOT OF CARGO AGE VERSUS FREQUENCY OF 
OCCURRENCE FOR CONSIGNEE NUMBER 2 01 

2 

HISTOGRAM PLOT OF CARGO AGE VERSUS FREQUENCY OF 
OCCURRENCE FOR CONSIGNEE NUMBER 3 
3 

/* 



0 



1 
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APPENDIX E 



Sample Card Control and Data Inputs and Outputs of the 

Simulation Program 



SAMPLE INPUT DECK FOR THE SIMULATION PROGRAM 
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Transaction: Container Waiver 



Report Record Identification Number: 1 

Usage: When a container is stuffed, but does not meet the minimum 

cube load requirement because of the nature of the next 
loadable shipment (size, weight, type, etc.)> then the 
following data is reported on logical unit UNTOl. 

(The container is closed out and transferred to the stuffed 
container stacks.) 



Fields : 

1. Record ID (1) 

2. Current day 

3. Cube utilization (percent) 

4. Weight utilization (percent) 

5. The serial number assigned to the container. (This number 
will be negative if the van is not single consignee.) 

6. Stuffing list identification number. (The van was stuffed 
from the identified stuffing list.) 

7. The number of consignees whose shipments were loaded in the 
van. 



8. POD (sequence number) 

9. Container type (sequence number) 

10. Number of shipment segments loaded in the van. 

11. Number of dated shipment segments 

12. Total age of dated segments 
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Transaction: Shipment Segment Stuff 



Report Record Identification Number: 2 



Usage: When a shipment segment is loaded into a container, this 

data is reported on logical unit UNT02. 



Fields : 



1, Record ID (2) 

2, Current day 

3, Shipment Serial Number, (This number will be negative if 
the shipment is not the last segment of a split shipment,) 

4, Segment volume (cubic feet) 

5, Weight of segment (pounds) 

6, Date of shipment’s arrival at the terminal 

7, POD (sequence number) 

8, Consignee (sequence number) 

9, Age of segment when stuffed, (days) 
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Transaction: Loaded Vessel 

Report: Vessel Status 



Report Record Identification Number: 3 



Usage: Data on unbooked, booked, and lifted containers is reported 

when a vessel departs the system; it is reported on logical 
unit UNT03. (Note: One transaction is reported for each 

POD container block of the vessel.) 



Fields : 



1. Record ID (3) 

2. Current day 

3. Number of booked containers which were not used. (Cancelations) 

4. POD (sequence number) 

5. Container Type (sequence number) 

6. Voyage Code Number 

7. Number of Unbooked MSC reserve containers 

8. Number of unbooked containers beyond MSC reserve 

9. Number of containers lifted aboard 
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Transaction: Loaded Vessel 

Report: Container Status 

Report Record Identification Number: 10 



Usage: 


When each block of identical type containers destined for 
the same POD are lifted aboard a vessel, this data is 
reported on logical unit UNTIO. 



Fields : 



1. 


Record ID (10) 


2. 


Current day 


3. 


Average age of containers in the group times 100 


4. 


Total number of containers in the group 


5. 


Total number of single consignee containers in the group 


6. 


POD (sequence number) 


7. 


Average cube utilization (percent times 100) 


8. 


Average weight utilization (percent times 100) 


9. 


Container type (sequence number) 


10. 


Voyage Code Number 


11. 


Number of shipment segments 


12. 


Number of dated shipment segments 


13. 


Average age of cargo at stuff times 100 



Transaction; Container Transfer 



Report Record Identification Number: 11 



Usage: When a container has been loaded, closed out, and transferred 

to the stuffed container stacks, this data is reported on 
logical unit UNTll. 



Fields : 

1. Record ID (11) 

2. Current day 

3. POD (sequence number) 

4. Container type (sequence number) 

5. Volume loaded in the container (cubic feet) 

6. Cube utilization (percent) 

7. Weight loaded in the container (hundredweight) 

8. Weight utilization (percent) 

9. The serial number assigned to the container. (This number 
will be negative if the van is not single consignee.) 

10. Stuffing list identification number. (The van was stuffed 
from the identified stuffing list.) 

11. The number of consignees whose shipments were loaded in 
the van. 

12. Number of segments loaded in the van 

13. Number of dated shipment segments. 



14. 



Total age of dated shipment segments 
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Transaction: Shipment Stuff (Abbreviated Report) 



Report Record Identification Number: 12 

Usage: When a shipment is loaded into a container, this data is 

reported on logical unit UNT12. This report is different 
than the (02) report in that only several items of infor- 
mation are reported. Also, this shipment stuff data is 
reported only when the shipment serial number is positive; 
that is, only for single shipments or the last segment of 
a split shipment. 



Fields ; 

1, Current day 

2, Age of shipment when stuffed, (days) 

3, Consignee, (sequence number) 



INITIAL DISTRIBUTION LIST 



Copies 



Defense Documentation Center (DDC) 2 

Cameron Station 
Alexandria, VA 22314 

Defense Logistics Studies Information Exchange (DLSIE) 2 

U.S. Army Logistics Management Center 
Fort Lee, VA 23801 

Library, Code 0212 2 

Naval Postgraduate School 
Monterey, CA 93940 

Dean of Research, Code 023 1 

Naval Postgraduate School 
Monterey, CA 93940 

Library, Code 55 3 



OR/AS Department 

Naval Postgraduate School 

Monterey, CA 93940 

M. J. Zubkoff, Code 1867 1 

Computation & Math Department 
Naval Ship R&D Center 
Bethesda, MD 20034 

Commander , WAMTMC 2 

Director of Plans 

Western Area Military Traffic Management Command 
Oakland Army Base 
Oakland, CA 94626 

Commander, MTMC 2 

Military Traffic Management Command 
Washington, DC 20315 

LTCOL M. L. Maloney 
MTMC--ITX 

Washington, DC 20315 

Dr. James P, Hynes 
OR/AS Department 
Naval Postgraduate School 
Monterey, CA 93940 

Captain J. Allender 1 

Planning Office 
Naval Supply Center 
Oakland, CA 94625 



2 



10 



1 





Ui 64533 



DUDLEY KNOX LIBRARY • RESEARCH REPORTS 




5 6853 0 




I 



